From 44a48a19ffeb8085e7ae1f6bf58d5661adaf8a8d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 Apr 2015 16:46:06 -0400 Subject: reuse strings --- Messages/Progress.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Messages') diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 64aede514..9bc335570 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -42,8 +42,7 @@ metered combinemeterupdate key af a = case keySize key of , pgTotal = size , pgOnCompletion = do ok <- takeMVar result - putStrLn $ desc ++ " " ++ - if ok then "ok" else "failed" + putStrLn $ desc ++ " " ++ endResult ok } r <- a $ liftIO . pupdate pg -- cgit v1.2.3