From eef20fa404f11fda0b9f73da1a3ee41db3201062 Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 29 Nov 2005 15:48:13 +0000 Subject: Added meta variables to transfer front-end and core. --- src/Transfer/Core/Print.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Transfer/Core/Print.hs') diff --git a/src/Transfer/Core/Print.hs b/src/Transfer/Core/Print.hs index 8f46f9e5e..7083e73bc 100644 --- a/src/Transfer/Core/Print.hs +++ b/src/Transfer/Core/Print.hs @@ -107,10 +107,12 @@ instance Print (Tree c) where EType -> prPrec _i 5 (concatD [doc (showString "Type")]) EStr str -> prPrec _i 5 (concatD [prt 0 str]) EInt n -> prPrec _i 5 (concatD [prt 0 n]) + EMeta tmeta -> prPrec _i 5 (concatD [prt 0 tmeta]) LetDef cident exp0 exp1 -> prPrec _i 0 (concatD [prt 0 cident , 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]) FieldType cident exp -> prPrec _i 0 (concatD [prt 0 cident , doc (showString ":") , prt 0 exp]) FieldValue cident exp -> prPrec _i 0 (concatD [prt 0 cident , doc (showString "=") , prt 0 exp]) + TMeta str -> prPrec _i 0 (doc (showString str)) CIdent str -> prPrec _i 0 (doc (showString str)) instance Print [Decl] where -- cgit v1.2.3