Remove unused variable
commitfe9bd4390eaf83518ed5c673296c738e5b59577f
authorEvan Czaplicki <info@elm-lang.org>
dateTue 18 Aug 2015, 18:36 (11 years ago)
parentc2e4a69
src/Generate/JavaScript.hs+1−1
@@ -433,7 +433,7 @@ crushIfsHelp visitedBranches unvisitedBranches finally =
433433-- DEFINITIONS
434434
435435defToStatements :: Opt.Def -> State Int [Statement ()]
436−defToStatements def@(Opt.Definition facts pattern expr) =
436+defToStatements (Opt.Definition facts pattern expr) =
437437 case Opt.tailRecursionDetails facts of
438438 Just name ->
439439 do func <- generateTailFunction name (Expr.collectLambdas expr)