diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-04 20:13:36 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-04 20:13:36 +0000 |
| commit | dc1c8355633ba2fe57046a19a579f5cd154835f7 (patch) | |
| tree | 36b3f8b36efb0ab54b5c7db8279be65b051bfd69 /src/GF/Devel/Grammar/SourceToGF.hs | |
| parent | 11982849b97203f2d5822df7391074a96b7d6f1a (diff) | |
restored interface and instance - at least for a while
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 |