diff options
Diffstat (limited to 'CmdLine/Batch.hs')
| -rw-r--r-- | CmdLine/Batch.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/CmdLine/Batch.hs b/CmdLine/Batch.hs index e7706881a..0cbd3781d 100644 --- a/CmdLine/Batch.hs +++ b/CmdLine/Batch.hs @@ -65,3 +65,8 @@ batchInput parser a = do batchCommandAction :: CommandStart -> Annex () batchCommandAction a = maybe (batchBadInput Batch) (const noop) =<< callCommandAction' a + +-- Reads lines of batch input and passes the filepaths to a CommandStart +-- to handle them. +batchFiles :: (FilePath -> CommandStart) -> Annex () +batchFiles a = batchInput Right $ batchCommandAction . a |