diff options
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 |