From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 14 Sep 2004 17:05:46 +0000
Subject: gfcm header

---
 src/GF/Source/GrammarToSource.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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