@@ -10,6 +10,8 @@ module Reporting.Render.Code
1010 where
1111
1212
13+import qualified Data.ByteString as B
14+import qualified Data.ByteString.UTF8 as UTF8_BS
1315import qualified Data.List as List
1416import Data.Word (Word16)
1517
@@ -26,10 +28,10 @@ newtype Source =
2628 Source [(Word16, String)]
2729
2830
29−toSource :: String -> Source
31+toSource :: B.ByteString -> Source
3032toSource source =
3133 Source $ zip [1..] $
32− lines source ++ [""]
34+ lines (UTF8_BS.toString source) ++ [""]
3335
3436
3537