diff --git a/Text/Feed/Import.hs b/Text/Feed/Import.hs index 8fde5f9..c001cee 100644 --- a/Text/Feed/Import.hs +++ b/Text/Feed/Import.hs @@ -12,6 +12,7 @@ -- -------------------------------------------------------------------- +{-# LANGUAGE CPP #-} module Text.Feed.Import ( parseFeedFromFile -- :: FilePath -> IO Feed , parseFeedString -- :: String -> IO Feed @@ -32,7 +33,12 @@ import Text.XML.Light.Lexer ( XmlSource ) import Control.Monad +#if MIN_VERSION_utf8_string(1,0,0) +import Prelude as UTF8 (readFile) +import Prelude +#else import System.IO.UTF8 as UTF8 ( readFile ) +#endif -- | 'parseFeedFromFile fp' reads in the contents of the file at @fp@; -- the assumed encoding is UTF-8.