code cleanup in the typechecker

2009-03-15 17:33:14 +00:00
parent 2081347033
commit 3afe18dc57
3 changed files with 7 additions and 46 deletions
--- a/src/GF/Compile/CheckGrammar.hs
+++ b/src/GF/Compile/CheckGrammar.hs
@@ -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