add type annotation
commiteafdaa20f463f3dc38d101063aad10cf6a1b73ec
authorEvan Czaplicki <info@elm-lang.org>
dateSat 31 Aug 2013, 04:00 (13 years ago)
parent545e51c
compiler/Generate/Cases.hs+2−1
@@ -13,7 +13,8 @@ import SourceSyntax.Expression
1313import Transform.Substitute
1414
1515
16−caseToMatch patterns = do
16+caseToMatch :: [(Pattern, LExpr t v)] -> (String, Match t v)
17+caseToMatch patterns = flip evalState 0 $ do
1718 v <- newVar
1819 (,) v <$> match [v] (map (first (:[])) patterns) Fail
1920