git.iko.soy/elk
on master help sign in
Improve indentation a bit
af8047cEvan Czaplicki
src/Generate/JavaScript.hs+4−2
compare with master
unifiedsplit
@@ -171,8 +171,10 @@ expression (A region expr) =
171 case last branches of
171 case last branches of
172 (A _ (Var (Var.Canonical (Var.Module ["Basics"]) "otherwise")), _) ->
172 (A _ (Var (Var.Canonical (Var.Module ["Basics"]) "otherwise")), _) ->
173 safeIfs branches'
173 safeIfs branches'
174− (A _ (Literal (Boolean True)), _) -> safeIfs branches'
174+ (A _ (Literal (Boolean True)), _) ->
175+ safeIfs branches'
176+ _ ->
175− _ -> ifs branches' (throw "badIf" region)
177+ ifs branches' (throw "badIf" region)
176 where
178 where
177 safeIfs branches = ifs (init branches) (snd (last branches))
179 safeIfs branches = ifs (init branches) (snd (last branches))
178 ifs branches finally = foldr iff finally branches
180 ifs branches finally = foldr iff finally branches