@@ -10,6 +10,8 @@ module Reporting.Render.Code
13+import qualified Data.ByteString as B
14+import qualified Data.ByteString.UTF8 as UTF8_BS
13import qualified Data.List as List
15import qualified Data.List as List
14import Data.Word (Word16)
16import Data.Word (Word16)
@@ -26,10 +28,10 @@ newtype Source =
26 Source [(Word16, String)]
28 Source [(Word16, String)]
29−toSource :: String -> Source
31+toSource :: B.ByteString -> Source
30toSource source =
32toSource source =
31 Source $ zip [1..] $
33 Source $ zip [1..] $
32− lines source ++ [""]
34+ lines (UTF8_BS.toString source) ++ [""]