From 249d506f58a8b5f8ef87295ab3dde2d13ddd3885 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 10 Nov 2003 07:55:45 +0000
Subject: Morphological analysis and glueing.

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

(limited to 'src/GF/Source/SourceToGrammar.hs')

diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs
index 4c4bc93a6..53681104c 100644
--- a/src/GF/Source/SourceToGrammar.hs
+++ b/src/GF/Source/SourceToGrammar.hs
@@ -357,6 +357,8 @@ transExp x = case x of
    where
      tryLoc (c,(mty,Just e)) = return (c,(mty,e))
      tryLoc (c,_) = Bad $ "local definition of" +++ GP.prt c +++ "without value"
+  ELetb defs exp -> transExp $ ELet defs exp
+  EWhere exp defs -> transExp $ ELet defs exp
 
   ELString (LString str) -> return $ G.K str 
   ELin id -> liftM G.LiT $ transIdent id
-- 
cgit v1.2.3