From 94326929b144913642121bef8f8ecc98feb992e7 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 3 Nov 2003 16:27:55 +0000
Subject: Fixed several things, e.g. tokenizer.

---
 src/GF/Canon/Look.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Canon')

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 4318239b6..2126edd60 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -144,6 +144,8 @@ ccompute cnc = comp []
 
     Con c xs -> liftM (Con c) $ mapM compt xs
 
+    K (KS []) -> return E --- should not be needed
+
     _        -> return t  
    where
      compt = comp g xs
-- 
cgit v1.2.3