From a25ee154e760a424ef4aef46a6e3d6fdf1079cf1 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 15 Sep 2004 14:36:27 +0000
Subject: introducing multiple inheritance

---
 src/GF/Compile/GrammarToCanon.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/GF/Compile/GrammarToCanon.hs')

diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index 7b7620f3b..ed145385c 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -39,7 +39,7 @@ redModInfo (c,info) = do
   info' <- case info of
     ModMod m -> do
       let isIncompl = not $ isCompleteModule m
-      (e,os) <- if isIncompl then return (Nothing,[]) else redExtOpen m ----
+      (e,os) <- if isIncompl then return ([],[]) else redExtOpen m ----
       flags <- mapM redFlag $ flags m 
       (a,mt) <- case mtype m of
          MTConcrete a -> do
@@ -61,8 +61,7 @@ redModInfo (c,info) = do
  where
    redExtOpen m = do
      e' <- case extends m of
-       Just e -> liftM Just $ redIdent e
-       _ -> return Nothing
+       es -> mapM redIdent es
      os' <- mapM (\o -> case o of 
               OQualif q _ i -> liftM (OSimple q) (redIdent i)
               _ -> prtBad "cannot translate unqualified open in" c) $ opens m
-- 
cgit v1.2.3