diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-06 15:57:43 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-06 15:57:43 +0000 |
| commit | 5be879dd543d61f871f76586251fe0aad91c0bcc (patch) | |
| tree | d2bd110cbbfaeaf7c85f0ae7e1aeb7fdd93824fe /src/Transfer/Syntax/Print.hs | |
| parent | 54b8d70443f2b41691339376677f50c7e5f62fca (diff) | |
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.
Diffstat (limited to 'src/Transfer/Syntax/Print.hs')
| -rw-r--r-- | src/Transfer/Syntax/Print.hs | 2 |
1 files changed, 0 insertions, 2 deletions
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 |