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/Canon/CanonToGrammar.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/GF/Canon/CanonToGrammar.hs')

diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs
index ece71c517..927f7747d 100644
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -41,9 +41,7 @@ canon2sourceModule (i,mi) = do
   return (i',info')
  where
    redExtOpen m = do
-     e' <- case M.extends m of
-       Just e -> liftM Just $ redIdent e
-       _ -> return Nothing
+     e' <- mapM redIdent $ M.extends m
      os' <- mapM (\ (M.OSimple q i) -> liftM (\i -> M.OQualif q i i) (redIdent i)) $ 
                  M.opens m
      return (e',os')
-- 
cgit v1.2.3