diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-11-29 15:48:13 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-11-29 15:48:13 +0000 |
| commit | eef20fa404f11fda0b9f73da1a3ee41db3201062 (patch) | |
| tree | f03879bedcf2a7885b092d18581f11a994a008be /src/Transfer/Syntax/Print.hs | |
| parent | 2be80a7e3b4834bd3146ac9d2f27190fd0689d27 (diff) | |
Added meta variables to transfer front-end and core.
Diffstat (limited to 'src/Transfer/Syntax/Print.hs')
| -rw-r--r-- | src/Transfer/Syntax/Print.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Transfer/Syntax/Print.hs b/src/Transfer/Syntax/Print.hs index ceaffa218..c9dcacdf5 100644 --- a/src/Transfer/Syntax/Print.hs +++ b/src/Transfer/Syntax/Print.hs @@ -125,6 +125,7 @@ instance Print (Tree c) where EType -> prPrec _i 11 (concatD [doc (showString "Type")]) EStr str -> prPrec _i 11 (concatD [prt 0 str]) EInt n -> prPrec _i 11 (concatD [prt 0 n]) + EMeta -> prPrec _i 11 (concatD [doc (showString "?")]) LetDef i exp0 exp1 -> prPrec _i 0 (concatD [prt 0 i , doc (showString ":") , prt 0 exp0 , doc (showString "=") , prt 0 exp1]) Case pattern exp -> prPrec _i 0 (concatD [prt 0 pattern , doc (showString "->") , prt 0 exp]) VVar i -> prPrec _i 0 (concatD [prt 0 i]) |