refactor
This commit is contained in:
parent
d3240f4622
commit
03f2ae0423
2 changed files with 5 additions and 13 deletions
|
@ -94,7 +94,7 @@ seek :: AddUrlOptions -> CommandSeek
|
|||
seek o = allowConcurrentOutput $ do
|
||||
forM_ (addUrls o) go
|
||||
case batchOption o of
|
||||
Batch -> batchSeek go
|
||||
Batch -> batchInput go
|
||||
NoBatch -> noop
|
||||
where
|
||||
go u = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue