on master help sign in
Update Type.Constrain.Literal for new AST
ddb21c5Evan Czaplicki
src/Type/Constrain/Literal.hs−9
@@ -29,9 +29,6 @@ constrain region literal tipe =
29 Lit.Str _ ->
29 Lit.Str _ ->
30 return $ T.CEqual stringError region T.string tipe
30 return $ T.CEqual stringError region T.string tipe
31
31
32− Lit.Boolean _ ->
33− return $ T.CEqual boolError region T.bool tipe
34−
35
32
36
33
37-- LITERAL ERRORS
34-- LITERAL ERRORS
@@ -59,9 +56,3 @@ charError =
59stringError :: Error.Hint
56stringError :: Error.Hint
60stringError =
57stringError =
61 Error.Literal "string"
58 Error.Literal "string"
62−
63−
64−{-# NOINLINE boolError #-}
65−boolError :: Error.Hint
66−boolError =
67− Error.Literal "boolean"