@@ -34,7 +34,6 @@ internalImports name =
3434 [ varDecl "_N" (obj ["Elm","Native"])
3535 , include "_U" "Utils"
3636 , include "_L" "List"
37− , include "_E" "Error"
3837 , varDecl Help.localModuleName (string (Module.nameToString name))
3938 ]
4039 where
@@ -150,7 +149,7 @@ expression (A region expr) =
150149 (A _ (Var (Var.Canonical (Var.Module ["Basics"]) "otherwise")), _) ->
151150 safeIfs branches'
152151 (A _ (Literal (Boolean True)), _) -> safeIfs branches'
153− _ -> ifs branches' (throw "If" region)
152+ _ -> ifs branches' (throw "badIf" region)
154153 where
155154 safeIfs branches = ifs (init branches) (snd (last branches))
156155 ifs branches finally = foldr iff finally branches
@@ -230,7 +229,7 @@ definition (Canonical.Definition pattern expr@(A region _) _) = do
230229
231230 safeAssign = varDecl "$" (CondExpr () if' (ref "_raw") exception)
232231 if' = InfixExpr () OpStrictEq (obj ["_raw","ctor"]) (string name)
233− exception = Help.throw "Case" region
232+ exception = Help.throw "badCase" region
234233
235234 _ ->
236235 do defs' <- concat <$> mapM toDef vars
@@ -262,7 +261,7 @@ match region mtch =
262261 | otherwise = e
263262
264263 Case.Fail ->
265− return [ ExprStmt () (Help.throw "Case" region) ]
264+ return [ ExprStmt () (Help.throw "badCase" region) ]
266265
267266 Case.Break -> return [BreakStmt () Nothing]
268267