From 6d79378346e6bff3876846f0d47b0df3e1db5243 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Apr 2015 20:10:32 -0400 Subject: [PATCH] dead code --- Messages/Progress.hs | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 177af61f91..acc2370176 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -49,16 +49,6 @@ showProgressDots :: Annex () showProgressDots = handleMessage q $ flushed $ putStr "." -{- Runs a command, the output of which is some sort of progress display. - - - - Normally, this is displayed to the user. - - - - In QuietOutput mode, both the stdout and stderr are discarded, - - unless the command fails, in which case stderr will be displayed. - -} -progressOutput :: FilePath -> [CommandParam] -> Annex Bool -progressOutput cmd ps = undefined - mkProgressHandler :: MeterUpdate -> Annex ProgressHandler mkProgressHandler meter = ProgressHandler <$> quietmode