I have not tested this patch, since I again cannot build hpodder, due to the ghc7 transition this time. But I have tested the new code in ghci and am pretty confident it's good, if it compiles for you. :)
-- see shy jo
diff -ur old/hpodder-1.1.5.0+nmu2/Commands/Download.hs hpodder-1.1.5.0+nmu2/Commands/Download.hs
--- old/hpodder-1.1.5.0+nmu2/Commands/Download.hs 2008-07-02 11:29:00.000000000 -0400
+++ hpodder-1.1.5.0+nmu2/Commands/Download.hs 2011-04-30 18:54:49.217522553 -0400
@@ -42,6 +42,7 @@
import Data.String.Utils
import Data.Either.Utils
import Data.List
+import Data.Char
import System.Exit
import Control.Exception
import Data.Progress.Tracker
@@ -259,10 +260,13 @@
d $ " gettypecommand sent to stdout: " ++ show c
d $ " original type was: " ++ show (eptype ep)
case ec of
- ExitSuccess -> case (strip c) of
+ ExitSuccess -> case (stripToken c) of
"" -> return (eptype ep)
x -> return x
_ -> return (eptype ep)
+
+ stripToken = takeWhile intoken
+ where intoken c = not $ isSpace c || c == ';'
getRenameTypes =
case getList (gcp gi) idstr "renametypes" of
signature.asc
Description: Digital signature
