diff options
Diffstat (limited to 'Command/Indirect.hs')
| -rw-r--r-- | Command/Indirect.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Indirect.hs b/Command/Indirect.hs index e46a3348d..9ce2751be 100644 --- a/Command/Indirect.hs +++ b/Command/Indirect.hs @@ -82,13 +82,13 @@ perform = do cleandirect k -- clean before content directory gets frozen whenM (liftIO $ not . isSymbolicLink <$> getSymbolicLinkStatus f) $ do moveAnnex k f - l <- calcGitLink f k + l <- inRepo $ gitAnnexLink f k liftIO $ createSymbolicLink l f showEndOk cleandirect k = do - liftIO . nukeFile =<< inRepo (gitAnnexInodeCache k) - liftIO . nukeFile =<< inRepo (gitAnnexMapping k) + liftIO . nukeFile =<< calcRepo (gitAnnexInodeCache k) + liftIO . nukeFile =<< calcRepo (gitAnnexMapping k) cleanup :: CommandCleanup cleanup = do |