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