Add the 'Str' data constructor to Ast.hs. Makes type checking go much much much faster!

src/Ast.hs

@@ -1,3 +1,4 @@
+
 module Ast where
 
 data Pattern = PData String [Pattern] | PVar String | PAnything
@@ -5,6 +6,7 @@ data Pattern = PData String [Pattern] | PVar String | PAnything
 
 data Expr = Number Int
           | Chr Char
+          | Str String
           | Boolean Bool
           | Range Expr Expr
           | Access Expr String

src/CompileToJS.hs

@@ -27,6 +27,7 @@ toJS expr =
       Number n -> show n
       Var x -> x
       Chr c -> show c
+      Str s -> toJS . list $ map Chr s
       Boolean b -> if b then "true" else "false"
       Range lo hi -> jsRange (toJS lo) (toJS hi)
       Access e lbl -> toJS e ++ "." ++ lbl

src/Types/Constrain.hs

@@ -3,6 +3,7 @@ module Constrain where
 
 import Ast
 import Types
+import Data.List (foldl')
 import qualified Data.Set as Set
 import qualified Data.Map as Map
 import Control.Monad (liftM,mapM)
@@ -60,7 +61,7 @@ inference (If e1 e2 e3) =
               , Set.unions [c1,c2,c3, Set.fromList [ t1 :=: BoolT, t2 :=: t3 ] ]
               , t2 )
 
-inference (Data name es) = inference $ foldl App (Var name) es
+inference (Data name es) = inference $ foldl' App (Var name) es
 inference (Binop op e1 e2) = inference (Var op `App` e1 `App` e2)
 inference (Access (Var x) y) = inference . Var $ x ++ "." ++ y
 inference (Range e1 e2) = inference (Var "elmRange" `App` e1 `App` e2)
@@ -69,16 +70,8 @@ inference other =
     case other of
       Number _ -> primitive IntT
       Chr _ -> primitive CharT
+      Str _ -> primitive string
       Boolean _ -> primitive BoolT
       _ -> beta >>= primitive 
 
 primitive t = return (Map.empty, Set.empty, t)
-{--
-      Let x e1 e2 ->
-          do (a1,c1,t1) <- inference e1
-             (a2,c2,t2) <- inference e2
-             let ts = Map.findWithDefault (error "inference") x a
-             return ( unionA a1 $ Map.delete x a2
-                    , Set.unions [ c1, c2, Set.fromList $ map (:<: t1) ts ]
-                    , t2 )
---}