support subcommands that take no params
This commit is contained in:
parent
df4b461df1
commit
cc4794ce85
2 changed files with 9 additions and 2 deletions
|
@ -36,6 +36,7 @@ type SubCmdSeekStrings = SubCmdStartString -> SubCmdSeek
|
|||
type SubCmdStartString = String -> SubCmdStart
|
||||
type SubCmdSeekBackendFiles = SubCmdStartBackendFile -> SubCmdSeek
|
||||
type SubCmdStartBackendFile = (FilePath, Maybe Backend) -> SubCmdStart
|
||||
type SubCmdSeekNothing = SubCmdStart -> SubCmdSeek
|
||||
|
||||
data SubCommand = SubCommand {
|
||||
subcmdname :: String,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue