diff options
| author | bringert <bringert@cs.chalmers.se> | 2005-12-01 16:55:57 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2005-12-01 16:55:57 +0000 |
| commit | 56f62f31d88348e25636e13d9f8f57a04c1b0b74 (patch) | |
| tree | 79adb3d2cd857ddced28cc7798481786b57faef1 /src/Transfer/Core/Print.hs | |
| parent | d15acf44b66b6fab88868ce9fb3ed284c656f7c4 (diff) | |
Transfer: Added Double type.
Diffstat (limited to 'src/Transfer/Core/Print.hs')
| -rw-r--r-- | src/Transfer/Core/Print.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Transfer/Core/Print.hs b/src/Transfer/Core/Print.hs index 3d0d4cd54..300636a78 100644 --- a/src/Transfer/Core/Print.hs +++ b/src/Transfer/Core/Print.hs @@ -105,7 +105,8 @@ instance Print (Tree c) where EVar cident -> prPrec _i 5 (concatD [prt 0 cident]) 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]) + EInteger n -> prPrec _i 5 (concatD [prt 0 n]) + EDouble d -> prPrec _i 5 (concatD [prt 0 d]) 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]) FieldType cident exp -> prPrec _i 0 (concatD [prt 0 cident , doc (showString ":") , prt 0 exp]) |