diff options
Diffstat (limited to 'src/GF/Devel/Grammar/SourceToGF.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/SourceToGF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Devel/Grammar/SourceToGF.hs b/src/GF/Devel/Grammar/SourceToGF.hs index d2690b4a7..fecb5b4ea 100644 --- a/src/GF/Devel/Grammar/SourceToGF.hs +++ b/src/GF/Devel/Grammar/SourceToGF.hs @@ -85,10 +85,10 @@ transModDef x = case x of id' <- transIdent id open' <- transIdent open return (transCncDef, MTConcrete open', id') - MInterface id -> mkModRes id MTAbstract body + MInterface id -> mkModRes id MTInterface body MInstance id open -> do open' <- transIdent open - mkModRes id (MTConcrete open') body + mkModRes id (MTInstance open') body mkBody (trDef, mtyp', id') body where |