Floats, bugfixes, small reorganisations

1 files changed, 2 insertions, 0 deletions

diff --git a/ast.hs b/ast.hs
index 8cecab6..b1b31b7 100644
--- a/ast.hs
+++ b/ast.hs
@@ -38,6 +38,7 @@ data Type = TypeInt Int
   deriving (Show, Eq)
 
 data Literal = LitInt Integer
+             | LitFloat Double
              | LitString String
              | LitVar Name
              | LitCall Name [Expression]
@@ -127,6 +128,7 @@ instance PShow Type where
 
 instance PShow Literal where
     pshow (LitInt i) = pshow i
+    pshow (LitFloat x) = pshow x
     pshow (LitString s) = pshow s
     pshow (LitVar n) = n
     pshow (LitCall n a) = concat [n, "(", intercalate ", " (map pshow a), ")"]