diff options
| author | svein.ove <svein.ove@aas.no> | 2010-01-02 20:32:07 +0100 |
|---|---|---|
| committer | svein.ove <svein.ove@aas.no> | 2010-01-02 20:32:07 +0100 |
| commit | 7fa65a8b46e33c9601e7924b1ea4f46c5012e37f (patch) | |
| tree | 2c2fa6faf3a03453cc3c5bf8df67a5df3dd69462 /XUtil.hsc | |
| parent | fbdc9d635d9e2ddcf11e8f4adcbfafd16ea90e3b (diff) | |
| download | xmobar-7fa65a8b46e33c9601e7924b1ea4f46c5012e37f.tar.gz xmobar-7fa65a8b46e33c9601e7924b1ea4f46c5012e37f.tar.bz2 | |
Use native utf-8 input in GHC 6.12
Ignore-this: f307e7ee3f4b04a692b1a4183f3de83e
darcs-hash:20100102193207-f57bf-005b945c503d9f6463ea66a441c434d496a4c329.gz
Diffstat (limited to 'XUtil.hsc')
| -rw-r--r-- | XUtil.hsc | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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 |