diff options
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 |