From 51ee065e6b321b849e439d3931c4f1bf40212961 Mon Sep 17 00:00:00 2001 From: Evan Czaplicki Date: Mon, 23 Dec 2013 17:02:47 -0800 Subject: [PATCH] Cosmetic: give function a more descriptive name --- compiler/Generate/JavaScript.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/Generate/JavaScript.hs b/compiler/Generate/JavaScript.hs index 50449c3..40d6c27 100644 --- a/compiler/Generate/JavaScript.hs +++ b/compiler/Generate/JavaScript.hs @@ -156,11 +156,11 @@ expression (L span expr) = MultiIf branches -> do branches' <- forM branches $ \(b,e) -> (,) <$> expression b <*> expression e return $ case last branches of - (L _ (Var "Basics.otherwise"), _) -> els branches' - (L _ (Literal (Boolean True)), _) -> els branches' + (L _ (Var "Basics.otherwise"), _) -> safeIfs branches' + (L _ (Literal (Boolean True)), _) -> safeIfs branches' _ -> ifs branches' (obj "_E.If" `call` [ ref "$moduleName", string (show span) ]) where - els branches = ifs (init branches) (snd (last branches)) + safeIfs branches = ifs (init branches) (snd (last branches)) ifs branches finally = foldr iff finally branches iff (if', then') else' = CondExpr () if' then' else'