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/PrintGFC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs
index 5182e9270..f55b9604a 100644
--- a/src/GF/Canon/PrintGFC.hs
+++ b/src/GF/Canon/PrintGFC.hs
@@ -117,7 +117,7 @@ instance Print ModType where
 
 instance Print Extend where
   prt i e = case e of
-   Ext id -> prPrec i 0 (concatD [prt 0 id , doc (showString "**")])
+   Ext ids -> prPrec i 0 (concatD [prt 0 ids , doc (showString "**")])
    NoExt  -> prPrec i 0 (concatD [])
 
 
-- 
cgit v1.2.3