fix the compilation after the patch for the new type checker

This commit is contained in:
kr.angelov
2011-11-29 18:45:51 +00:00
parent 6ce2afaa70
commit cac5b9ff0d

View File

@@ -209,7 +209,7 @@ compileSourceModule opts env@(k,gr,_) mb_gfFile mo@(i,mi) = do
warnOut opts warnings
intermOut opts DumpRename (ppModule Internal mo2)
(mo3,warnings) <- putpp " type checking" $ ioeErr $ runCheck (checkModule mos mo2)
(mo3,warnings) <- putpp " type checking" $ ioeErr $ runCheck (checkModule opts mos mo2)
warnOut opts warnings
intermOut opts DumpTypeCheck (ppModule Internal mo3)