Force UTF8 encoding in NormalizationTest

Author: Bodigrim

test/NormalizationTest.hs

@@ -12,6 +12,7 @@
 --
 
 import Control.Monad (when)
+import qualified Data.ByteString as B
 import Data.Char (chr, isSpace, ord, toUpper)
 #if MIN_VERSION_base(4,8,0)
 import Data.Function ((&))
@@ -20,6 +21,7 @@ import Data.List (intercalate, isPrefixOf)
 import Data.List.Split (splitOn)
 import Data.Text (Text)
 import qualified Data.Text as T
+import qualified Data.Text.Encoding as T
 import Data.Text.Normalize (NormalizationMode(NFD, NFKD, NFC, NFKC), normalize)
 import Text.Printf (printf)
 
@@ -109,7 +111,7 @@ checkLine (lineno, line) = do
 
 testNormalize :: FilePath -> IO ()
 testNormalize file = do
-    contents <- readFile file
+    contents <- T.unpack . T.decodeUtf8 <$> B.readFile file
     let ls = lines contents                        -- split into lines
          & map (dropWhile isSpace)                 -- trim leading spaces
          & zip [1..]                               -- add numbering

unicode-transforms.cabal

@@ -156,6 +156,7 @@ test-suite ucd
   ghc-options: -Wall -fwarn-identities -fwarn-incomplete-record-updates -fwarn-incomplete-uni-patterns -fwarn-tabs
   build-depends:
       base >=4.7 && <5
+    , bytestring
     , split >=0.1 && <0.3
     , text
     , unicode-transforms