Merge pull request #1081 from elm-lang/dev
Fix #1077 where complete cases on booleans were handled wrong
commitb466c423fa1910e9c253b1bd123c04c70f3e28f3
authorEvan Czaplicki <info@elm-lang.org>
dateMon 5 Oct 2015, 16:41 (11 years ago)
parent1e3a2781120001
src/Nitpick/Pattern.hs+6
@@ -38,6 +38,12 @@ fromCanonicalPattern (A.A _ pattern) =
3838 P.Anything ->
3939 Anything
4040
41+ P.Literal (L.Boolean True) ->
42+ Data (Var.builtin "True") []
43+
44+ P.Literal (L.Boolean False) ->
45+ Data (Var.builtin "False") []
46+
4147 P.Literal literal ->
4248 Literal literal
4349
src/Nitpick/PatternMatches.hs+7
@@ -60,11 +60,18 @@ toTagDict interfaces localName localAdts =
6060 , TagInfo "[]" 0
6161 ]
6262
63+ boolTags =
64+ [ TagInfo "True" 0
65+ , TagInfo "False" 0
66+ ]
67+
6368 builtinDict =
6469 Map.singleton Var.BuiltIn $
6570 Map.fromList
6671 [ ("::", listTags)
6772 , ("[]", listTags)
73+ , ("True", boolTags)
74+ , ("False", boolTags)
6875 ]
6976
7077 interfaceDict =