@@ -338,11 +338,11 @@ caseEncodeDecodeNonAsciiFileData = do
338338 out1 <- D.decodeFile "accenté/bar.yaml"
339339 out1 @?= Just mySample
340340
341− createDirectoryIfMissing True "test/resources/accenté/"
341+ createDirectoryIfMissing True "test/resources/unicode/accenté/"
342342
343343 readFile "test/resources/accent/foo.yaml" >>=
344− writeFile "test/resources/accenté/foo.yaml"
345− out2 <- D.decodeFile "test/resources/accenté/foo.yaml"
344+ writeFile "test/resources/unicode/accenté/foo.yaml"
345+ out2 <- D.decodeFile "test/resources/unicode/accenté/foo.yaml"
346346 out2 @?= Just mySample
347347
348348caseEncodeDecodeStrings :: Assertion