@@ -170,9 +170,9 @@ instance (P.Pretty def, P.Pretty var, Var.ToString var) => P.Pretty (Expr' ann d
170170 , P.nest 4 (P.pretty dealiaser False elseBranch)
171171 ]
172172
173− MultiIf branches _finally ->
173+ MultiIf branches finally ->
174174 P.parensIf needsParens $
175− P.text "if" $$ nest 3 (vcat $ map iff branches)
175+ P.text "if" $$ nest 3 (vcat $ map iff branches ++ [final])
176176 where
177177 iff (condition, branch) =
178178 P.text "|" <+>
@@ -181,6 +181,9 @@ instance (P.Pretty def, P.Pretty var, Var.ToString var) => P.Pretty (Expr' ann d
181181 2
182182 (P.pretty dealiaser False branch)
183183
184+ final =
185+ P.hang (P.text "| True -> ") 2 (P.pretty dealiaser False finally)
186+
184187 Let defs body ->
185188 P.parensIf needsParens $
186189 P.sep