diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-26 16:25:55 -0400 |
| commit | 4f050ca9b80d0565e408137f2422e808b82cfd11 (patch) | |
| tree | 5aca9688e49dee8915a962de4baf4c305ccbfa9e /Command/Find.hs | |
| parent | 541178b499d084e4041ae4b9d62bf86f5a97c3ff (diff) | |
reorganize some files and imports
Diffstat (limited to 'Command/Find.hs')
| -rw-r--r-- | Command/Find.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index e7e5b7986..c6a32a944 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -17,24 +17,22 @@ import qualified Annex import qualified Utility.Format import Utility.DataUnits import Types.Key -import qualified Option -import GitAnnex.Options def :: [Command] def = [noCommit $ noMessages $ withOptions [formatOption, print0Option, jsonOption] $ command "find" paramPaths seek SectionQuery "lists available files"] formatOption :: Option -formatOption = Option.field [] "format" paramFormat "control format of output" +formatOption = fieldOption [] "format" paramFormat "control format of output" getFormat :: Annex (Maybe Utility.Format.Format) getFormat = getOptionField formatOption $ return . fmap Utility.Format.gen print0Option :: Option -print0Option = Option.Option [] ["print0"] (Option.NoArg set) +print0Option = Option [] ["print0"] (NoArg set) "terminate output with null" where - set = Annex.setField (Option.name formatOption) "${file}\0" + set = Annex.setField (optionName formatOption) "${file}\0" seek :: CommandSeek seek ps = do |