Zap bogus tab

This commit is contained in:
dcoppa 2016-05-17 15:21:34 +00:00
parent 6be0aca131
commit eb45863de2

View File

@ -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."