From 56f62f31d88348e25636e13d9f8f57a04c1b0b74 Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 1 Dec 2005 16:55:57 +0000 Subject: Transfer: Added Double type. --- src/Transfer/Syntax/Print.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Transfer/Syntax/Print.hs') diff --git a/src/Transfer/Syntax/Print.hs b/src/Transfer/Syntax/Print.hs index cd0975fa8..5e17c4491 100644 --- a/src/Transfer/Syntax/Print.hs +++ b/src/Transfer/Syntax/Print.hs @@ -129,7 +129,8 @@ instance Print (Tree c) where EVar i -> prPrec _i 13 (concatD [prt 0 i]) EType -> prPrec _i 13 (concatD [doc (showString "Type")]) EStr str -> prPrec _i 13 (concatD [prt 0 str]) - EInt n -> prPrec _i 13 (concatD [prt 0 n]) + EInteger n -> prPrec _i 13 (concatD [prt 0 n]) + EDouble d -> prPrec _i 13 (concatD [prt 0 d]) EMeta -> prPrec _i 13 (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]) -- cgit v1.2.3