From e620ffbd9432fc9ab4f3174ecf9c117db27af772 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 23 Oct 2003 15:09:07 +0000
Subject: Working with interfaces and incomplete modules.

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

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

diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs
index 1a677e1a9..93dac97f6 100644
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -31,7 +31,7 @@ canon2sourceModule (i,mi) = do
           M.MTResource -> return (i',M.MTResource) --- c' not needed
           M.MTTransfer x y -> return (i',M.MTTransfer x y) --- c' not needed
       defs   <- mapMTree redInfo $ M.jments m
-      return $ M.ModMod $ M.Module mt flags e os defs
+      return $ M.ModMod $ M.Module mt (M.mstatus m) flags e os defs
     _ -> Bad $ "cannot decompile module type"
   return (i',info')
  where
@@ -39,7 +39,7 @@ canon2sourceModule (i,mi) = do
      e' <- case M.extends m of
        Just e -> liftM Just $ redIdent e
        _ -> return Nothing
-     os' <- mapM (\ (M.OSimple i) -> liftM (\i -> M.OQualif i i) (redIdent i)) $ 
+     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