From dc1c8355633ba2fe57046a19a579f5cd154835f7 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 4 Dec 2007 20:13:36 +0000 Subject: restored interface and instance - at least for a while --- src/GF/Devel/Grammar/SourceToGF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Devel/Grammar/SourceToGF.hs') 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 -- cgit v1.2.3