diff options
Diffstat (limited to 'Command/Fix.hs')
-rw-r--r-- | Command/Fix.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Fix.hs b/Command/Fix.hs index dbccfacdf..6aedbad6e 100644 --- a/Command/Fix.hs +++ b/Command/Fix.hs @@ -10,7 +10,6 @@ module Command.Fix where import Common.Annex import Command import qualified Annex.Queue -import Annex.Content def :: [Command] def = [notDirect $ noCommit $ command "fix" paramPaths seek @@ -22,7 +21,7 @@ seek = [withFilesInGit $ whenAnnexed start] {- Fixes the symlink to an annexed file. -} start :: FilePath -> (Key, Backend) -> CommandStart start file (key, _) = do - link <- calcGitLink file key + link <- inRepo $ gitAnnexLink file key stopUnless ((/=) (Just link) <$> liftIO (catchMaybeIO $ readSymbolicLink file)) $ do showStart "fix" file next $ perform file link |