X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=AST.hs;fp=AST.hs;h=dfa43b7c60c0d0ced86a73268167b1b9584b9d74;hb=fb900d55f61f5e072b437d8c90827ecc1cc8b8ca;hp=b57d7cb8cede024a9c2bb0e366d8d066474d331d;hpb=5c4c0171f43b2d66cec3a882cdf2ecd904c83a1a;p=kaleidoscope-hs.git

diff --git a/AST.hs b/AST.hs
index b57d7cb..dfa43b7 100644
--- a/AST.hs
+++ b/AST.hs
@@ -4,7 +4,7 @@ import Data.Char
 import Text.Read 
 import Text.ParserCombinators.ReadP hiding ((+++), choice)
 
-data Expr = Num Float
+data Expr = Num Double
           | Var String
           | BinOp BinOp Expr Expr
           | Call String [Expr]