Zap bogus tab
This commit is contained in:
parent
6be0aca131
commit
eb45863de2
@ -1,9 +1,9 @@
|
||||
$OpenBSD: patch-Commands_Download_hs,v 1.4 2014/12/18 20:16:59 kili Exp $
|
||||
$OpenBSD: patch-Commands_Download_hs,v 1.5 2016/05/17 15:21:34 dcoppa Exp $
|
||||
|
||||
port to ghc-7.8
|
||||
|
||||
--- Commands/Download.hs.orig Tue Nov 8 16:49:38 2011
|
||||
+++ Commands/Download.hs Thu Dec 18 20:59:53 2014
|
||||
+++ Commands/Download.hs Tue May 17 17:17:55 2016
|
||||
@@ -150,7 +150,7 @@ watchTheFiles progressinterval watchFilesMV =
|
||||
procEpisode gi meter dltok ep name r =
|
||||
case r of
|
||||
@ -13,6 +13,15 @@ port to ghc-7.8
|
||||
do i "Ctrl-C hit; aborting!"
|
||||
-- Do not consider Ctrl-C a trackable error
|
||||
exitFailure
|
||||
@@ -264,7 +264,7 @@ procSuccess gi ep tmpfp =
|
||||
"" -> return (eptype ep)
|
||||
x -> return x
|
||||
_ -> return (eptype ep)
|
||||
-
|
||||
+
|
||||
stripToken = takeWhile intoken
|
||||
where intoken c = not $ isSpace c || c == ';'
|
||||
|
||||
@@ -301,7 +301,7 @@ runHook fn script =
|
||||
case status of
|
||||
Nothing -> fail "No status unexpected."
|
||||
|
Loading…
x
Reference in New Issue
Block a user