@@ -337,12 +337,12 @@ caseEncodeDecodeNonAsciiFileData = do
337 out1 <- D.decodeFile "accenté/bar.yaml"
337 out1 <- D.decodeFile "accenté/bar.yaml"
338 out1 @?= Just mySample
338 out1 @?= Just mySample
340+ c <- readFile "test/resources/accent/foo.yaml"
341+ inTempDirectory $ do
340− createDirectoryIfMissing True "test/resources/unicode/accenté/"
342+ createDirectoryIfMissing True "test/resources/unicode/accenté/"
342− readFile "test/resources/accent/foo.yaml" >>=
343− writeFile "test/resources/unicode/accenté/foo.yaml"
343+ writeFile "test/resources/unicode/accenté/foo.yaml" c
344− out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
344+ out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
345− out2 @?= Just mySample
345+ out2 @?= Just mySample
347caseEncodeDecodeStrings :: Assertion
347caseEncodeDecodeStrings :: Assertion
348caseEncodeDecodeStrings = do
348caseEncodeDecodeStrings = do