From 809d74b86db2f261248141ec8820951e5854a7f7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 18 Jan 2013 11:23:09 -0800
Subject: [PATCH] Set locale encoding in test suite.

This prevents a "commit buffer (invalid argument)" error on
Windows.
---
 tests/test-pandoc.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/test-pandoc.hs b/tests/test-pandoc.hs
index 968f31df6..24b7a8261 100644
--- a/tests/test-pandoc.hs
+++ b/tests/test-pandoc.hs
@@ -3,7 +3,7 @@
 module Main where
 
 import Test.Framework
-
+import GHC.IO.Encoding
 import qualified Tests.Old
 import qualified Tests.Readers.LaTeX
 import qualified Tests.Readers.Markdown
@@ -34,4 +34,6 @@ tests = [ testGroup "Old" Tests.Old.tests
         ]
 
 main :: IO ()
-main = inDirectory "tests" $ defaultMain tests
+main = do
+  setLocaleEncoding utf8
+  inDirectory "tests" $ defaultMain tests