restored interface and instance - at least for a while

2007-12-04 20:13:36 +00:00
parent 11982849b9
commit dc1c835563
4 changed files with 10 additions and 6 deletions
--- 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