on master help sign in
cosmetic: add two vertical spaces
commit7c72c5c14cf6e747879168e8b6b10ccc8ccd99d3 authorEvan Czaplicki <info@elm-lang.org> dateSat 29 Aug 2015, 14:18 (11 years ago) parent6ccaf92
1 file changed+2
src/Generate/JavaScript.hs+2
src/Generate/JavaScript.hs+2
@@ -480,8 +480,10 @@ generateCase tcc expr branches =
480480 case expr of
481481 A.A _ (Var (Var.Canonical Var.Local x)) ->
482482 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
483+
483484 A.A _ (Var (Var.Canonical (Var.TopLevel _) x)) ->
484485 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
486+
485487 _ ->
486488 do expr' <- toJsExpr expr
487489 return (initialMatch, [VarDeclStmt () [varDecl tempVar expr']])