blob: 323ae701cde4dfe206f9217e47e18d4048364af2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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.
|
GitWeb
