@@ -255,7 +255,7 @@ match span mtch =
255 Case.Fail ->
255 Case.Fail ->
256 return [ ExprStmt () (obj "_E.Case" `call` [ref "$moduleName", string (show span)]) ]
256 return [ ExprStmt () (obj "_E.Case" `call` [ref "$moduleName", string (show span)]) ]
258− Case.Break -> return []
258+ Case.Break -> return [BreakStmt () Nothing]
259 Case.Other e ->
259 Case.Other e ->
260 do e' <- expression e
260 do e' <- expression e
261 return [ ReturnStmt () (Just e') ]
261 return [ ReturnStmt () (Just e') ]