diff --git a/Command/Inprogress.hs b/Command/Inprogress.hs
index b4050d207f..58c5bcfd77 100644
--- 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 ->