diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-07-09 19:03:21 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 19:03:24 -0400 |
commit | ea0f914261e4747de75339952c2d47374c5a7803 (patch) | |
tree | 4af3a12da54d8f40878f1f8d563b8abbd5d0516f /Command/Whereis.hs | |
parent | 7a5aff2c121f4ecbc173e939b0cf7b2975d18438 (diff) |
wip
Current status:
* building again, but several commands are commented out
* still need to implement global options, file matching options, etc
Diffstat (limited to 'Command/Whereis.hs')
-rw-r--r-- | Command/Whereis.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Command/Whereis.hs b/Command/Whereis.hs index 05bc70654..fb28daa22 100644 --- a/Command/Whereis.hs +++ b/Command/Whereis.hs @@ -21,6 +21,14 @@ cmd = noCommit $ withOptions (jsonOption : annexedMatchingOptions ++ keyOptions) "lists repositories that have file content" paramPaths (withParams seek) +data WhereisOptions = WhereisOptions + { whereisFiles :: CmdParams + , jsonOption :: GlobalSetter + , keyOptions :: Maybe KeyOptions + } + +-- TODO: annexedMatchingOptions + seek :: CmdParams -> CommandSeek seek ps = do m <- remoteMap id |