diff options
Diffstat (limited to 'Command/MetaData.hs')
-rw-r--r-- | Command/MetaData.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs index a16f4214a..f1de6b6de 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -58,9 +58,12 @@ seek ps = do getfield <- getOptionField getOption $ \ms -> return $ either error id . mkMetaField <$> ms now <- liftIO getPOSIXTime + let seeker = if null modmeta + then withFilesInGit + else withFilesInGitNonRecursive withKeyOptions (startKeys now getfield modmeta) - (withFilesInGit (whenAnnexed $ start now getfield modmeta)) + (seeker $ whenAnnexed $ start now getfield modmeta) ps start :: POSIXTime -> Maybe MetaField -> [ModMeta] -> FilePath -> Key -> CommandStart |