From d5b4230d6dbee8c03eedf8d181dfa2badf1a954b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 22 Sep 2004 20:42:21 +0000
Subject: making parsing ImperC work

---
 src/GF/Source/LexGF.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Source')

diff --git a/src/GF/Source/LexGF.hs b/src/GF/Source/LexGF.hs
index 400ae4be3..81ed2ab8f 100644
--- 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
-- 
cgit v1.2.3