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

(limited to 'src/GF/Source/GrammarToSource.hs')

diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs
index b313b563c..290cb92d0 100644
--- a/src/GF/Source/GrammarToSource.hs
+++ b/src/GF/Source/GrammarToSource.hs
@@ -30,8 +30,8 @@ trModule (i,mo) = case mo of
              (mkOpens (map trOpen (opens m)))
              (mkTopDefs (concatMap trAnyDef (tree2list (jments m)) ++ map trFlag (flags m)))
 
-trExtend :: Maybe Ident -> P.Extend
-trExtend i = maybe P.NoExt (P.Ext . singleton . tri) i
+trExtend :: [Ident] -> P.Extend
+trExtend i = ifNull P.NoExt (P.Ext . map tri) i
 
 ---- this has to be completed with other mtys
 forName (MTConcrete a) = tri a
-- 
cgit v1.2.3