Fixes display of Unicode characters

elm-lang · May 12, 2016 · c8b41dc · c8b41dc
1 parent 4781ad2
commit c8b41dc
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/elm-reactor.cabal b/elm-reactor.cabal
@@ -62,6 +62,7 @@ Executable elm-reactor
     base >=4.2 && <5,
     blaze-html,
     blaze-markup,
+    utf8-string,
     bytestring,
     cmdargs,
     containers,

diff --git a/src/backend/Generate/Index.hs b/src/backend/Generate/Index.hs
@@ -5,7 +5,7 @@ module Generate.Index (toHtml, getInfo, getPkg) where
 import Control.Monad
 import Control.Monad.Except (ExceptT, liftIO, runExceptT, throwError)
 import Data.Aeson as Json
-import qualified Data.ByteString.Lazy.Char8 as LBSC
+import qualified Data.ByteString.Lazy.UTF8 as BSU8
 import qualified Data.List as List
 import qualified Data.Map as Map
 import qualified Data.Text as Text
@@ -77,7 +77,7 @@ toHtml info@(Info pwd _ _ _ _) =
   Help.makeHtml
     (List.intercalate "/" ("~" : pwd))
     ("/" ++ StaticFiles.indexPath)
-    ("Elm.Index.fullscreen(" ++ LBSC.unpack (Json.encode info) ++ ");")
+    ("Elm.Index.fullscreen(" ++ BSU8.toString (Json.encode info) ++ ");")