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/Share.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/GF/Canon/Share.hs b/src/GF/Canon/Share.hs
index fc4d82b06..63e12436a 100644
--- a/src/GF/Canon/Share.hs
+++ b/src/GF/Canon/Share.hs
@@ -18,8 +18,8 @@ fullOpt = [2]
 
 shareModule :: OptSpec -> (Ident, CanonModInfo) -> (Ident, CanonModInfo)
 shareModule opt (i,m) = case m of
-  M.ModMod (M.Module mt fs me ops js) -> 
-    (i,M.ModMod (M.Module mt fs me ops (mapTree (shareInfo opt) js)))
+  M.ModMod (M.Module mt st fs me ops js) -> 
+    (i,M.ModMod (M.Module mt st fs me ops (mapTree (shareInfo opt) js)))
   _ -> (i,m)
 
 shareInfo opt (c, CncCat ty t m) = (c, CncCat ty (shareOpt opt t) m)
-- 
cgit v1.2.3