From 3b39607bbac8e6ab99198ab608f14e1f84c2f60e Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 24 Jun 2004 14:06:09 +0000 Subject: last-minute bug fixes --- src/GF/Source/PrintGF.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/GF/Source/PrintGF.hs') diff --git a/src/GF/Source/PrintGF.hs b/src/GF/Source/PrintGF.hs index 732cdb002..e44891e44 100644 --- a/src/GF/Source/PrintGF.hs +++ b/src/GF/Source/PrintGF.hs @@ -210,6 +210,9 @@ instance Print TopDef where DefPrintOld printdefs -> prPrec i 0 (concat [["printname"] , prt 0 printdefs]) DefLintype defs -> prPrec i 0 (concat [["lintype"] , prt 0 defs]) DefPattern defs -> prPrec i 0 (concat [["pattern"] , prt 0 defs]) + DefPackage id topdefs -> prPrec i 0 (concat [["package"] , prt 0 id , ["="] , ["{"] , prt 0 topdefs , ["}"] , [";"]]) + DefVars defs -> prPrec i 0 (concat [["var"] , prt 0 defs]) + DefTokenizer id -> prPrec i 0 (concat [["tokenizer"] , prt 0 id , [";"]]) prtList es = case es of [] -> (concat []) -- cgit v1.2.3