git.iko.soy/elk
on master help sign in
Get rid of dead code: `showErr` is not used any more
97a4628Evan Czaplicki
compiler/Generate/JavaScript.hs+1−7
compare with master
unifiedsplit
@@ -1,4 +1,4 @@
1−module Generate.JavaScript (showErr, jsModule) where
1+module Generate.JavaScript (jsModule) where
2
2
3import Control.Arrow (first,second)
3import Control.Arrow (first,second)
4import Control.Monad (liftM,(<=<),join,ap)
4import Control.Monad (liftM,(<=<),join,ap)
@@ -18,12 +18,6 @@ import qualified Transform.SortDefinitions as SD
18deprime :: String -> String
18deprime :: String -> String
19deprime = map (\c -> if c == '\'' then '$' else c)
19deprime = map (\c -> if c == '\'' then '$' else c)
20
20
21−showErr :: String -> String
22−showErr err = globalAssign "Elm.Main" (jsFunc "elm" body)
23− where msg = show . concatMap (++"<br>") . lines $ err
24− body = "var T = Elm.Text(elm);\n\
25− \return { main : T.text(T.monospace(" ++ msg ++ ")) };"
26−
27indent = concatMap f
21indent = concatMap f
28 where f '\n' = "\n "
22 where f '\n' = "\n "
29 f c = [c]
23 f c = [c]
compiler/Language/Elm.hs+1−1
@@ -14,7 +14,7 @@ module Language.Elm (compile, toHtml, moduleName, runtime, docs) where
14import qualified Data.List as List
14import qualified Data.List as List
15import qualified Data.Map as Map
15import qualified Data.Map as Map
16import Data.Version (showVersion)
16import Data.Version (showVersion)
17−import Generate.JavaScript (showErr, jsModule)
17+import Generate.JavaScript (jsModule)
18import Generate.Html (generateHtml)
18import Generate.Html (generateHtml)
19import Initialize (buildFromSource)
19import Initialize (buildFromSource)
20import Parse.Helpers
20import Parse.Helpers