From 5be879dd543d61f871f76586251fe0aad91c0bcc Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 6 Dec 2005 15:57:43 +0000 Subject: Transfer: Changed BNFC's layout syntax resolver to add a semicolon at EOF if using top-level layout sytax. Changed transfer syntax to use this to force semicolon after imports when pretty printing transfer. transfer grammar printer now produces Transfer syntax, not core. It also imports prelude and includes Eq and Compos instances. --- src/Transfer/Syntax/Print.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/Transfer/Syntax/Print.hs') diff --git a/src/Transfer/Syntax/Print.hs b/src/Transfer/Syntax/Print.hs index 101ec29eb..fc0bab0fe 100644 --- a/src/Transfer/Syntax/Print.hs +++ b/src/Transfer/Syntax/Print.hs @@ -154,12 +154,10 @@ instance Print (Tree c) where instance Print [Import] where prt _ es = case es of [] -> (concatD []) - [x] -> (concatD [prt 0 x]) x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) instance Print [Decl] where prt _ es = case es of [] -> (concatD []) - [x] -> (concatD [prt 0 x]) x:xs -> (concatD [prt 0 x , doc (showString ";") , prt 0 xs]) instance Print [ConsDecl] where prt _ es = case es of -- cgit v1.2.3