yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the type of String literals

Browse source
This commit is contained in:
Evan Czaplicki 2013-07-25 16:02:49 +02:00
parent abb6dc19f6
commit d059c362d9
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/Type/Constrain/Literal.hs
View file

@ -15,5 +15,5 @@ constrain env literal tipe =
IntNum _ -> fmap (\n -> tipe === VarN n) number
FloatNum _ -> return $ tipe === prim "Float"
Chr _ -> return $ tipe === prim "Char"
Str _ -> return $ tipe === TermN (App1 (prim "[]") (prim "Char"))
Str _ -> return $ tipe === TermN (App1 (prim "_List") (prim "Char"))
Boolean _ -> return $ tipe === prim "Bool"