@@ -926,7 +926,7 @@ pConstant = do reserved "Integer";return BIType
926 <|> do reserved "String"; return StrType
926 <|> do reserved "String"; return StrType
927 <|> do reserved "Ptr"; return PtrType
927 <|> do reserved "Ptr"; return PtrType
928 <|> try (do f <- float; return $ Fl f)
928 <|> try (do f <- float; return $ Fl f)
929− <|> try (do i <- natural; lchar 'L'; return $ BI i)
929+-- <|> try (do i <- natural; lchar 'L'; return $ BI i)
930 <|> try (do i <- natural; return $ I (fromInteger i))
930 <|> try (do i <- natural; return $ I (fromInteger i))
931 <|> try (do s <- strlit; return $ Str s)
931 <|> try (do s <- strlit; return $ Str s)
932 <|> try (do c <- chlit; return $ Ch c)
932 <|> try (do c <- chlit; return $ Ch c)