97a4628 · elk · git.iko.soy

Get rid of dead code: `showErr` is not used any more

commit97a462897659c25c6d253d38e6cf41ee0229823c authorEvan Czaplicki <info@elm-lang.org> dateTue 6 Aug 2013, 13:40 (13 years ago) parent96835bf

2 files changed+2−8

unifiedsplit

compiler/Generate/JavaScript.hs+1−7

@@ -1,4 +1,4 @@

1−module Generate.JavaScript (showErr, jsModule) where

1+module Generate.JavaScript (jsModule) where

33import Control.Arrow (first,second)

44import Control.Monad (liftM,(<=<),join,ap)

@@ -18,12 +18,6 @@ import qualified Transform.SortDefinitions as SD

1818deprime :: String -> String

1919deprime = map (\c -> if c == '\'' then '$' else c)

2020

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−

2721indent = concatMap f

2822 where f '\n' = "\n "

2923 f c = [c]

compiler/Language/Elm.hs+1−1

@@ -14,7 +14,7 @@ module Language.Elm (compile, toHtml, moduleName, runtime, docs) where

1414import qualified Data.List as List

1515import qualified Data.Map as Map

1616import Data.Version (showVersion)

17−import Generate.JavaScript (showErr, jsModule)

17+import Generate.JavaScript (jsModule)

1818import Generate.Html (generateHtml)

1919import Initialize (buildFromSource)

2020import Parse.Helpers