diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:08:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 15:08:02 -0400 |
| commit | e7e61fb6cbe5455ded9bb550a64121223c099fc2 (patch) | |
| tree | 003a99697256ea516ad40f9fbdb854996b58c0cd /CmdLine/Batch.hs | |
| parent | 8879c96d157f06bbd2372064251676b7927ce38e (diff) | |
convert all commands to work with optparse-applicative
Still no options though.
Diffstat (limited to 'CmdLine/Batch.hs')
| -rw-r--r-- | CmdLine/Batch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/CmdLine/Batch.hs b/CmdLine/Batch.hs index 836472eb0..24f942978 100644 --- a/CmdLine/Batch.hs +++ b/CmdLine/Batch.hs @@ -20,7 +20,7 @@ type Batchable t = BatchMode -> t -> CommandStart -- In batch mode, one line at a time is read, parsed, and a reply output to -- stdout. In non batch mode, the command's parameters are parsed and -- a reply output for each. -batchable :: ((t -> CommandStart) -> CommandSeek) -> Batchable t -> CommandSeek +batchable :: ((t -> CommandStart) -> CmdParams -> CommandSeek) -> Batchable t -> CmdParams -> CommandSeek batchable seeker starter params = ifM (getOptionFlag batchOption) ( batchloop , seeker (starter NoBatch) params |