todos-0.5.3.2: Todos/IO.hs

{-# 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