fix build

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