git.iko.soy/elk
on master help sign in
Show the last case of a multi-if
7570244Evan Czaplicki
src/AST/Expression/General.hs+5−2
compare with master
unifiedsplit
@@ -170,9 +170,9 @@ instance (P.Pretty def, P.Pretty var, Var.ToString var) => P.Pretty (Expr' ann d
170 , P.nest 4 (P.pretty dealiaser False elseBranch)
170 , P.nest 4 (P.pretty dealiaser False elseBranch)
171 ]
171 ]
172
172
173− MultiIf branches _finally ->
173+ MultiIf branches finally ->
174 P.parensIf needsParens $
174 P.parensIf needsParens $
175− P.text "if" $$ nest 3 (vcat $ map iff branches)
175+ P.text "if" $$ nest 3 (vcat $ map iff branches ++ [final])
176 where
176 where
177 iff (condition, branch) =
177 iff (condition, branch) =
178 P.text "|" <+>
178 P.text "|" <+>
@@ -181,6 +181,9 @@ instance (P.Pretty def, P.Pretty var, Var.ToString var) => P.Pretty (Expr' ann d
181 2
181 2
182 (P.pretty dealiaser False branch)
182 (P.pretty dealiaser False branch)
183
183
184+ final =
185+ P.hang (P.text "| True -> ") 2 (P.pretty dealiaser False finally)
186+
184 Let defs body ->
187 Let defs body ->
185 P.parensIf needsParens $
188 P.parensIf needsParens $
186 P.sep
189 P.sep