Bug#658901: podder: .hpodder/feedxfer/98d3f0a6932d02a860c5369081089b0b: hGetContents: invalid argument (Invalid or incomplete multibyte or wide character)

[John Goerzen]

Joey,

Does the attached patch fix the problem for you?  Update and lseps on 
your example podcast, at least, work for me with it.

-- John

commit bd08d07cc29893177efe8ef0e8be368657d56bbf
Author: John Goerzen <jgoer...@complete.org>
Date:   Thu Feb 16 14:49:16 2012 -0600

    Attempt to fix binary issue

diff --git a/FeedParser.hs b/FeedParser.hs
index d30b77c..d61160a 100644
--- 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 ->