diff options
Diffstat (limited to 'Messages')
| -rw-r--r-- | Messages/Progress.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Messages/Progress.hs b/Messages/Progress.hs index 20c713e06..64aede514 100644 --- a/Messages/Progress.hs +++ b/Messages/Progress.hs @@ -16,6 +16,7 @@ import Types.Messages import Types.Key import System.Console.AsciiProgress +import qualified System.Console.Terminal.Size as Terminal import Control.Concurrent {- Shows a progress meter while performing a transfer of a key. @@ -31,11 +32,12 @@ metered combinemeterupdate key af a = case keySize key of showOutput liftIO $ putStrLn "" - let desc = truncatepretty 79 $ fromMaybe (key2file key) af + cols <- liftIO $ maybe 79 Terminal.width <$> Terminal.size + let desc = truncatepretty cols $ fromMaybe (key2file key) af result <- liftIO newEmptyMVar pg <- liftIO $ newProgressBar def - { pgWidth = 79 + { pgWidth = cols , pgFormat = desc ++ " :percent :bar ETA :eta" , pgTotal = size , pgOnCompletion = do |