fix build

This commit is contained in:
Joey Hess 2023-04-12 14:18:29 -04:00
parent 3346aa9659
commit 11790df3e6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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 ->