fix build

diff --git a/Command/Inprogress.hs b/Command/Inprogress.hs
index 6df55c6f035e41cc4332e9398e89ae4d6463e8c7..b4050d207fa0c954f7547a4711912423af32e3a1 100644 (file)
--- a/Command/Inprogress.hs
+++ b/Command/Inprogress.hs
@@ -31,6 +31,7 @@ optParser desc = InprogressOptions
 
 seek :: InprogressOptions -> CommandSeek
 seek o = do
+       IsTerminal isterminal <- liftIO $ checkIsTerminal stdout
        ts <- map (transferKey . fst) <$> getTransfers
        case keyOptions o of
                Just WantAllKeys ->