git.iko.soy/elk
on master help sign in
Switch away from using Text.Blaze.Html.Renderer.Utf8 because it scrambles some things.
16aef1eEvan Czaplicki
compiler/Compiler.hs+2−2
compare with master
unifiedsplit
@@ -3,7 +3,7 @@ module Main where
3import Control.Monad (foldM)
3import Control.Monad (foldM)
4import qualified Data.Map as Map
4import qualified Data.Map as Map
5import qualified Data.Maybe as Maybe
5import qualified Data.Maybe as Maybe
6−import qualified Text.Blaze.Html.Renderer.Utf8 as Blaze
6+import Text.Blaze.Html.Renderer.String (renderHtml)
7import qualified Data.ByteString.Lazy.Char8 as BS
7import qualified Data.ByteString.Lazy.Char8 as BS
8import qualified System.Console.CmdArgs as CmdArgs
8import qualified System.Console.CmdArgs as CmdArgs
9import System.Directory
9import System.Directory
@@ -62,7 +62,7 @@ build flags rootFile =
62
62
63 sources js = map Html.Link (Flag.scripts flags) ++ [ Html.Source js ]
63 sources js = map Html.Link (Flag.scripts flags) ++ [ Html.Source js ]
64
64
65− makeHtml js moduleName = ("html", Blaze.renderHtml html)
65+ makeHtml js moduleName = ("html", BS.pack $ renderHtml html)
66 where
66 where
67 rtsPath = Maybe.fromMaybe Path.runtime (Flag.runtime flags)
67 rtsPath = Maybe.fromMaybe Path.runtime (Flag.runtime flags)
68 html = Html.generate rtsPath (takeBaseName rootFile) (sources js) moduleName ""
68 html = Html.generate rtsPath (takeBaseName rootFile) (sources js) moduleName ""