From d95ca4a103c9023aa104b25acdc9c21418de6a14 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 19 Jan 2009 13:23:03 +0000
Subject: refactor the GF.Grammar.Grammar syntax. The obsolete constructions
 are removed

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

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

diff --git a/src/GF/Source/CF.hs b/src/GF/Source/CF.hs
index b268a8ecd..ae42958b6 100644
--- a/src/GF/Source/CF.hs
+++ b/src/GF/Source/CF.hs
@@ -81,8 +81,8 @@ type CFFun = String
 
 cf2gf :: String -> CF -> SourceGrammar
 cf2gf name cf = MGrammar [
-  (aname, ModMod (emptyModule {mtype = MTAbstract,       jments = abs})),
-  (cname, ModMod (emptyModule {mtype = MTConcrete aname, jments = cnc}))
+  (aname, emptyModInfo{mtype = MTAbstract,       jments = abs}),
+  (cname, emptyModInfo{mtype = MTConcrete aname, jments = cnc})
   ]
  where
    (abs,cnc) = cf2grammar cf
-- 
cgit v1.2.3