unify batch mode with non-batch by using AnnexedFileSeeker

This commit is contained in:
Joey Hess 2020-07-22 14:23:28 -04:00
parent d9ae6ab0b4
commit 1be92381ec
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
23 changed files with 70 additions and 74 deletions

View file

@ -45,7 +45,7 @@ seek o = do
list <- getList o
printHeader list
let seeker = AnnexedFileSeeker
{ seekAction = commandAction' (start list)
{ startAction = start list
, checkContentPresent = Nothing
, usesLocationLog = True
}