test: fix for Relude 1.1.0.0

tiredpixel · Jun 20, 2022 · f35c021 · f35c021
1 parent 8af7f2a
commit f35c021
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/test/Isoxya/Plugin/Spellchecker/Endpoint/DataSpec.hs b/test/Isoxya/Plugin/Spellchecker/Endpoint/DataSpec.hs
@@ -79,8 +79,8 @@ pC = object [
 load :: MonadIO m => Text -> [Text] -> Text -> m (ProcessorI, [Value])
 load ns dicts url = do
     i <- genProcessorI url dicts'
-    t <- readFileText $ fixtureResult ns url
-    let Just dataE = decode $ encodeUtf8 t
+    t <- readFileLBS $ fixtureResult ns url
+    let Just dataE = decode t
     return (i, dataE)
     where
         dicts' = if null dicts

diff --git a/test/Isoxya/Plugin/Spellchecker/ParserSpec.hs b/test/Isoxya/Plugin/Spellchecker/ParserSpec.hs
@@ -34,5 +34,5 @@ load :: MonadIO m => Text -> m (Text, Text)
 load url = do
     i <- genProcessorI url Nothing
     let textsA = parse i
-    textsE <- readFileText $ fixtureText url
-    return (unlines textsA, textsE)
+    textsE <- readFileBS $ fixtureText url
+    return (unlines textsA, decodeUtf8 textsE)