From 33ae55e8698d9b781758e9ef35966b946979779f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 14 Nov 2015 15:47:16 -0800 Subject: [PATCH] test-citeproc.hs: More UTF8 IO functions. --- tests/test-citeproc.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/test-citeproc.hs b/tests/test-citeproc.hs index 954f714b..0429c91f 100644 --- a/tests/test-citeproc.hs +++ b/tests/test-citeproc.hs @@ -191,8 +191,8 @@ showDiff expected' result' = withSystemTempDirectory "test-pandoc-citeproc-XXX" $ \fp -> do let expectedf = fp "expected" let actualf = fp "actual" - writeFile expectedf expected' - writeFile actualf result' + UTF8.writeFile expectedf expected' + UTF8.writeFile actualf result' withDirectory fp $ void $ rawSystem "diff" ["-u","expected","actual"] withDirectory :: FilePath -> IO a -> IO a @@ -238,7 +238,7 @@ main = do putStrLn "Copying existing test-citeproc.log to test-citeproc.log.old" copyFile "test-citeproc.log" "test-citeproc.log.old" putStrLn "Writing test-citeproc.log." - writeFile "test-citeproc.log" summary + UTF8.writeFile "test-citeproc.log" summary exitWith $ if numfailures == 0 then ExitSuccess else ExitFailure $ numfailures + numerrors