Use Text.readFile

IntersectMBO · Nov 19, 2024 · 25e3906 · 25e3906
1 parent 49d6547
commit 25e3906
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-api/gen/Test/Hedgehog/Golden/ErrorMessage.hs b/cardano-api/gen/Test/Hedgehog/Golden/ErrorMessage.hs
@@ -179,7 +179,7 @@ checkAgainstGoldenFile
   -> [String]
   -> m ()
 checkAgainstGoldenFile goldenFile actualLines = GHC.withFrozenCallStack $ do
-  referenceLines <- List.lines <$> H.readFile goldenFile
+  referenceLines <- List.lines . Text.unpack <$> liftIO (Text.readFile goldenFile)
   let difference = getGroupedDiff actualLines referenceLines
   case difference of
     [] -> pure ()