@@ -338,11 +338,11 @@ caseEncodeDecodeNonAsciiFileData = do
338 out1 <- D.decodeFile "accenté/bar.yaml"
338 out1 <- D.decodeFile "accenté/bar.yaml"
339 out1 @?= Just mySample
339 out1 @?= Just mySample
341− createDirectoryIfMissing True "test/resources/accenté/"
341+ createDirectoryIfMissing True "test/resources/unicode/accenté/"
343 readFile "test/resources/accent/foo.yaml" >>=
343 readFile "test/resources/accent/foo.yaml" >>=
344− writeFile "test/resources/accenté/foo.yaml"
344+ writeFile "test/resources/unicode/accenté/foo.yaml"
345− out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
345+ out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
346 out2 @?= Just mySample
346 out2 @?= Just mySample
348caseEncodeDecodeStrings :: Assertion
348caseEncodeDecodeStrings :: Assertion