code cleanup in the typechecker

This commit is contained in:
krasimir
2009-03-15 17:33:14 +00:00
parent 2081347033
commit 3afe18dc57
3 changed files with 7 additions and 46 deletions

View File

@@ -138,7 +138,6 @@ checkAbsInfo st m mo (c,info) = do
where
mkCheck cat ss = case ss of
[] -> return (c,info)
["[]"] -> return (c,info) ----
_ -> checkErr $ Bad (unlines ss ++++ "in" +++ cat +++ prt c +++ pos c)
---- temporary solution when tc of defs is incomplete
mkCheckWarn cat ss = case ss of