From c985dab565416251d9973f5b3bafe4d9d205b249 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 1 Oct 2003 12:46:44 +0000 Subject: Putting def definitions in place. --- src/GF/Canon/PrintGFC.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/Canon/PrintGFC.hs') diff --git a/src/GF/Canon/PrintGFC.hs b/src/GF/Canon/PrintGFC.hs index c4f2e7d62..bc89ffd6f 100644 --- a/src/GF/Canon/PrintGFC.hs +++ b/src/GF/Canon/PrintGFC.hs @@ -163,6 +163,7 @@ instance Print Exp where EAtom atom -> prPrec i 2 (concat [prt 0 atom]) EAbs id exp -> prPrec i 0 (concat [["\\"] , prt 0 id , ["->"] , prt 0 exp]) EEq equations -> prPrec i 0 (concat [["{"] , prt 0 equations , ["}"]]) + EData -> prPrec i 2 (concat [["data"]]) instance Print Sort where prt i e = case e of @@ -185,7 +186,7 @@ instance Print APatt where APW -> prPrec i 0 (concat [["_"]]) prtList es = case es of - [x] -> (concat [prt 0 x]) + [] -> (concat []) x:xs -> (concat [prt 0 x , prt 0 xs]) instance Print Atom where -- cgit v1.2.3