git.iko.soy/elk
on master help sign in
cosmetic: add two vertical spaces
7c72c5cEvan Czaplicki
src/Generate/JavaScript.hs+2
compare with master
unifiedsplit
@@ -480,8 +480,10 @@ generateCase tcc expr branches =
480 case expr of
480 case expr of
481 A.A _ (Var (Var.Canonical Var.Local x)) ->
481 A.A _ (Var (Var.Canonical Var.Local x)) ->
482 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
482 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
483+
483 A.A _ (Var (Var.Canonical (Var.TopLevel _) x)) ->
484 A.A _ (Var (Var.Canonical (Var.TopLevel _) x)) ->
484 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
485 return (Case.matchSubst [(tempVar, Var.safe x)] initialMatch, [])
486+
485 _ ->
487 _ ->
486 do expr' <- toJsExpr expr
488 do expr' <- toJsExpr expr
487 return (initialMatch, [VarDeclStmt () [varDecl tempVar expr']])
489 return (initialMatch, [VarDeclStmt () [varDecl tempVar expr']])