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

typo in PGF.TypeCheck which spoiled the previous patch

Browse Source
This commit is contained in:
krasimir
2010-10-18 16:50:55 +00:00
parent 7fb5fddbb8
commit afce46b386
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/TypeCheck.hs
View File

@@ -548,7 +548,6 @@ generateForMetas prove e = do
infExpr emptyScope e infExpr emptyScope e
fillinVariables fillinVariables
refineExpr e refineExpr e
return e
where where
fillinVariables = do fillinVariables = do
fvs <- TcM (\abstr s ms -> Ok s ms [(i,s,scope,tty,cs) | (i,MUnbound s scope tty cs) <- IntMap.toList ms]) fvs <- TcM (\abstr s ms -> Ok s ms [(i,s,scope,tty,cs) | (i,MUnbound s scope tty cs) <- IntMap.toList ms])
@@ -563,7 +562,6 @@ generateForForest :: (Scope -> TType -> TcM FId Expr) -> Expr -> TcM FId Expr
generateForForest prove e = do generateForForest prove e = do
fillinVariables fillinVariables
refineExpr e refineExpr e
return e
where where
fillinVariables = do fillinVariables = do
fvs <- TcM (\abstr s ms -> Ok s ms [(i,s,scope,tty,cs) | (i,MUnbound s scope tty cs) <- IntMap.toList ms]) fvs <- TcM (\abstr s ms -> Ok s ms [(i,s,scope,tty,cs) | (i,MUnbound s scope tty cs) <- IntMap.toList ms])