support subcommands that take no params

This commit is contained in:
Joey Hess 2010-11-04 13:37:06 -04:00
parent df4b461df1
commit cc4794ce85
2 changed files with 9 additions and 2 deletions

View file

@ -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,