diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-19 13:23:03 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-19 13:23:03 +0000 |
| commit | d95ca4a103c9023aa104b25acdc9c21418de6a14 (patch) | |
| tree | 7cff6e45e2dc1ba08deb503589e21770c7f239b3 /src/GF/Source/CF.hs | |
| parent | fa7ab84471652c40079e4f77d242208376c4b668 (diff) | |
refactor the GF.Grammar.Grammar syntax. The obsolete constructions are removed
Diffstat (limited to 'src/GF/Source/CF.hs')
| -rw-r--r-- | src/GF/Source/CF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |