{-# LANGUAGE CPP #-} -- | Wrapper to support unicode IO with GHC 6.10 and 6.12 module Todos.IO (putStr, putStrLn,readFile,getContents,print, encodeString, decodeString, ensureUnicode) where import Codec.Binary.UTF8.String (encodeString, decodeString) #if __GLASGOW_HASKELL__ < 612 import Prelude hiding (putStr, putStrLn,readFile,getContents,print) import System.IO.UTF8 ensureUnicode :: String -> String ensureUnicode = decodeString #else import Prelude ensureUnicode :: String -> String ensureUnicode = id #endif