introducing multiple inheritance

1 files changed, 1 insertions, 3 deletions

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')