making parsing ImperC work

2004-09-22 20:42:21 +00:00
parent a0116fd288
commit d5b4230d6d
6 changed files with 51 additions and 31 deletions
--- a/src/GF/Source/LexGF.hs
+++ b/src/GF/Source/LexGF.hs
@@ -59,7 +59,7 @@ prToken t = case t of
  PT _ (TD s) -> s
  PT _ (TC s) -> s
  PT _ (T_LString s) -> s
-
+  _ -> show t

 eitherResIdent :: (String -> Tok) -> String -> Tok
 eitherResIdent tv s = if isResWord s then (TS s) else (tv s) where