GFtoGFCC type checks (but is not correct)

src/GF/Devel/Grammar/Construct.hs

@@ -31,8 +31,8 @@ gfModules ms = emptyGF {gfmodules = fromList ms}
 
 -- abstractions on Module
 
-emptyModule :: Ident -> Module
-emptyModule m = Module MTGrammar True [] [] [] [] empty empty
+emptyModule :: Module
+emptyModule = Module MTGrammar True [] [] [] [] empty empty
 
 isCompleteModule :: Module -> Bool
 isCompleteModule = miscomplete

src/GF/Devel/Grammar/PrGF.hs

@@ -64,6 +64,9 @@ prtBad s a = Bad (s +++ prt a)
 prGF :: GF -> String
 prGF = cprintTree . trGrammar
 
+instance Print GF where
+  prt = cprintTree . trGrammar
+
 prModule :: SourceModule -> String
 prModule = cprintTree . trModule