git.iko.soy/elk
on master help sign in
Improve error messages, rm trailing whitespace

Always leave a codebase cleaner than you found it.

commit4bec310476972410aa3a08cc502d3f1d6e3d061f authorMax Goldstein <maxgoldstein1@gmail.com> dateWed 30 Apr 2014, 20:28 (13 years ago) parentf99ac97
2 files changed+7−7
compare with master
unifiedsplit
compiler/Generate/JavaScript.hs+1−1 compiler/Generate/JavaScript/Ports.hs+6−6
compiler/Generate/JavaScript.hs+1−1
@@ -34,7 +34,7 @@ include alias moduleName =
3434
3535internalImports :: String -> Statement ()
3636internalImports name =
37− VarDeclStmt ()
37+ VarDeclStmt ()
3838 [ varDecl "_N" (obj "Elm.Native")
3939 , include "_U" "_N.Utils"
4040 , include "_L" "_N.List"
compiler/Generate/JavaScript/Ports.hs+6−6
@@ -38,7 +38,7 @@ inc tipe x =
3838
3939 Data "Json.Value" [] ->
4040 obj "Native.Json.fromJS" <| x
41−
41+
4242 Data ctor []
4343 | ctor == "Int" -> from JSNumber
4444 | ctor == "Float" -> from JSNumber
@@ -71,10 +71,10 @@ inc tipe x =
7171 , inc t (BracketRef () x (IntLit () n)))
7272
7373 Data _ _ ->
74− error "bad ADT got to port generation code"
74+ error "bad ADT got to incoming port generation code"
7575
7676 Record _ (Just _) ->
77− error "bad record got to port generation code"
77+ error "bad record got to incoming port generation code"
7878
7979 Record fields Nothing ->
8080 check x (JSObject (map fst fields)) object
@@ -128,12 +128,12 @@ out tipe x =
128128 | Help.isTuple ctor ->
129129 let convert n t = out t $ DotRef () x $ var ('_':show n)
130130 in ArrayLit () $ zipWith convert [0..] ts
131−
131+
132132 Data _ _ ->
133− error "bad ADT got to port generation code"
133+ error "bad ADT got to outgoing port generation code"
134134
135135 Record _ (Just _) ->
136− error "bad record got to port generation code"
136+ error "bad record got to outgoing port generation code"
137137
138138 Record fields Nothing ->
139139 ObjectLit () keys