msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fix in the typechecking of one and default

Browse Source
This commit is contained in:
Krasimir Angelov
2025-05-09 19:15:28 +02:00
parent d54fab0bbf
commit 03421f6bc7
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/compiler/api/GF/Compile/TypeCheck/ConcreteNew.hs
View File

@@ -382,19 +382,19 @@ tcRho scope c (Reset ctl mb_ct t qid) mb_ty
instSigma scope c2 (Reset ctl mb_ct t qid) vtypeMarkup mb_ty instSigma scope c2 (Reset ctl mb_ct t qid) vtypeMarkup mb_ty
| ctl == cOne = do | ctl == cOne = do
let (c1,c2) = split c let (c1,c2) = split c
(t,ty) <- tcRho scope c1 t mb_ty (t,ty) <- tcRho scope c1 t mb_ty
mb_ct <- case mb_ct of (mb_ct,ty) <- case mb_ct of
Just ct -> do (ct,ty) <- tcRho scope c2 ct (Just ty) Just ct -> do (ct,ty) <- tcRho scope c2 ct (Just ty)
return (Just ct) return (Just ct,ty)
Nothing -> return Nothing Nothing -> return (Nothing,ty)
return (Reset ctl mb_ct t qid,ty) return (Reset ctl mb_ct t qid,ty)
| ctl == cDefault = do | ctl == cDefault = do
let (c1,c2) = split c let (c1,c2) = split c
(t,ty) <- tcRho scope c1 t mb_ty (t,ty) <- tcRho scope c1 t mb_ty
mb_ct <- case mb_ct of (mb_ct,ty) <- case mb_ct of
Just ct -> do (ct,ty) <- tcRho scope c2 ct (Just ty) Just ct -> do (ct,ty) <- tcRho scope c2 ct (Just ty)
return (Just ct) return (Just ct,ty)
Nothing -> evalError (pp "[list: .. | ..] requires an argument") Nothing -> evalError (pp "[list: .. | ..] requires an argument")
return (Reset ctl mb_ct t qid,ty) return (Reset ctl mb_ct t qid,ty)
| ctl == cList = do | ctl == cList = do
do let (c1,c2) = split c do let (c1,c2) = split c