diff options
Diffstat (limited to 'Command/Lock.hs')
-rw-r--r-- | Command/Lock.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Command/Lock.hs b/Command/Lock.hs index a3fc25117..90d293799 100644 --- a/Command/Lock.hs +++ b/Command/Lock.hs @@ -29,12 +29,14 @@ cmd = notDirect $ withGlobalOptions annexedMatchingOptions $ paramPaths (withParams seek) seek :: CmdParams -> CommandSeek -seek ps = ifM versionSupportsUnlockedPointers - ( withFilesInGit (whenAnnexed startNew) ps - , do - withFilesOldUnlocked startOld ps - withFilesOldUnlockedToBeCommitted startOld ps - ) +seek ps = do + l <- workTreeItems ps + ifM versionSupportsUnlockedPointers + ( withFilesInGit (whenAnnexed startNew) l + , do + withFilesOldUnlocked startOld l + withFilesOldUnlockedToBeCommitted startOld l + ) startNew :: FilePath -> Key -> CommandStart startNew file key = ifM (isJust <$> isAnnexLink file) |