diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-10 20:38:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-10 20:38:11 -0400 |
| commit | 41ef4b363d155294e77ef8054fb93e2075e89ae2 (patch) | |
| tree | a151ee927d3a2f6d19819d4ca277a9d34c15d4f3 /Command/Find.hs | |
| parent | 8d20a65920cb6ddad186fa11b6fa21a61684de16 (diff) | |
convert FindRef
Diffstat (limited to 'Command/Find.hs')
| -rw-r--r-- | Command/Find.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Find.hs b/Command/Find.hs index dd82bd401..ae5595c1d 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -48,14 +48,14 @@ parseFormatOption = ) seek :: FindOptions -> CommandSeek -seek o = withFilesInGit (whenAnnexed $ start (formatOption o)) (findThese o) +seek o = withFilesInGit (whenAnnexed $ start o) (findThese o) -start :: Maybe Utility.Format.Format -> FilePath -> Key -> CommandStart -start format file key = do +start :: FindOptions -> FilePath -> Key -> CommandStart +start o file key = do -- only files inAnnex are shown, unless the user has requested -- others via a limit whenM (limited <||> inAnnex key) $ - showFormatted format file $ ("file", file) : keyVars key + showFormatted (formatOption o) file $ ("file", file) : keyVars key stop showFormatted :: Maybe Utility.Format.Format -> String -> [(String, String)] -> Annex () |