fix build
This commit is contained in:
parent
3346aa9659
commit
11790df3e6
1 changed files with 1 additions and 0 deletions
|
@ -31,6 +31,7 @@ optParser desc = InprogressOptions
|
||||||
|
|
||||||
seek :: InprogressOptions -> CommandSeek
|
seek :: InprogressOptions -> CommandSeek
|
||||||
seek o = do
|
seek o = do
|
||||||
|
IsTerminal isterminal <- liftIO $ checkIsTerminal stdout
|
||||||
ts <- map (transferKey . fst) <$> getTransfers
|
ts <- map (transferKey . fst) <$> getTransfers
|
||||||
case keyOptions o of
|
case keyOptions o of
|
||||||
Just WantAllKeys ->
|
Just WantAllKeys ->
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue