From 7fa65a8b46e33c9601e7924b1ea4f46c5012e37f Mon Sep 17 00:00:00 2001
From: "svein.ove" <svein.ove@aas.no>
Date: Sat, 2 Jan 2010 20:32:07 +0100
Subject: Use native utf-8 input in GHC 6.12

Ignore-this: f307e7ee3f4b04a692b1a4183f3de83e

darcs-hash:20100102193207-f57bf-005b945c503d9f6463ea66a441c434d496a4c329.gz
---
 XUtil.hsc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/XUtil.hsc b/XUtil.hsc
index 85d3dd3..c849bd5 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -44,7 +44,11 @@ import System.IO
 import System.IO.Unsafe (unsafePerformIO)
 #if defined XFT || defined UTF8
 import Foreign.C
+# if __GLASGOW_HASKELL__ < 612
 import qualified System.IO.UTF8 as UTF8 (readFile,hGetLine)
+# else
+import qualified System.IO as UTF8 (readFile,hGetLine)
+# endif
 #endif
 #if defined XFT
 import Data.List
-- 
cgit v1.2.3