Attempt to fix binary issue

jgoerzen · Feb 16, 2012 · bd08d07 · bd08d07
1 parent 9bda7c5
commit bd08d07
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/FeedParser.hs b/FeedParser.hs
@@ -39,6 +39,7 @@ import Data.Maybe.Utils
 import Data.Char
 import Data.Either.Utils
 import Data.List
+import System.IO
 
 data Item = Item {itemtitle :: String,
                   itemguid :: Maybe String,
@@ -68,7 +69,8 @@ item2ep pc item =
 
 parse :: FilePath -> String -> IO (Either String Feed)
 parse fp name = 
-    do c <- readFile fp
+    do h <- openBinaryFile fp ReadMode
+       c <- hGetContents h
        case xmlParse' name (unifrob c) of
          Left x -> return (Left x)
          Right y ->