diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-22 13:23:33 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-22 13:42:58 -0400 |
commit | 0da2a837d1634164695591029072b88cd56b46e7 (patch) | |
tree | 7c8dea2beeb08007df09c0b6f02d1b7943b7970b /Command/Indirect.hs | |
parent | 0ac35d9b0ea997f9d6051d86889f4bb4df914498 (diff) |
refactoring
no behavior changes
Diffstat (limited to 'Command/Indirect.hs')
-rw-r--r-- | Command/Indirect.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Indirect.hs b/Command/Indirect.hs index f5234b4dc..06897e292 100644 --- a/Command/Indirect.hs +++ b/Command/Indirect.hs @@ -20,7 +20,7 @@ import Annex.Content import Annex.Content.Direct import Annex.CatFile import Annex.Init -import qualified Command.Add +import Annex.Ingest cmd :: Command cmd = notBareRepo $ noDaemonRunning $ @@ -90,7 +90,7 @@ perform = do Right _ -> do l <- calcRepo $ gitAnnexLink f k liftIO $ createSymbolicLink l f - Left e -> catchNonAsync (Command.Add.undo f k e) + Left e -> catchNonAsync (restoreFile f k e) warnlocked showEndOk |