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/GFtoSource.hs | |
| parent | 11982849b97203f2d5822df7391074a96b7d6f1a (diff) | |
restored interface and instance - at least for a while
Diffstat (limited to 'src/GF/Devel/Grammar/GFtoSource.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/GFtoSource.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Devel/Grammar/GFtoSource.hs b/src/GF/Devel/Grammar/GFtoSource.hs index b49d9ee2f..2866c0446 100644 --- a/src/GF/Devel/Grammar/GFtoSource.hs +++ b/src/GF/Devel/Grammar/GFtoSource.hs @@ -38,6 +38,8 @@ trModule (i,mo) = P.MModule compl typ body where MTGrammar -> P.MGrammar i' MTAbstract -> P.MAbstract i' MTConcrete a -> P.MConcrete i' (tri a) + MTInterface -> P.MInterface i' + MTInstance a -> P.MInstance i' (tri a) body = P.MBody (trExtends (mextends mo)) (mkOpens (map trOpen (mopens mo))) |