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/AddUrl.hs | |
| parent | 0ac35d9b0ea997f9d6051d86889f4bb4df914498 (diff) | |
refactoring
no behavior changes
Diffstat (limited to 'Command/AddUrl.hs')
| -rw-r--r-- | Command/AddUrl.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index de83d8c9b..659274e49 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -14,14 +14,15 @@ import Network.URI import Common.Annex import Command import Backend -import qualified Command.Add import qualified Annex import qualified Annex.Queue import qualified Annex.Url as Url import qualified Backend.URL import qualified Remote import qualified Types.Remote as Remote +import qualified Command.Add import Annex.Content +import Annex.Ingest import Annex.UUID import Logs.Web import Types.Key @@ -359,7 +360,7 @@ cleanup u url file key mtmp = case mtmp of when (isJust mtmp) $ logStatus key InfoPresent setUrlPresent u key url - Command.Add.addLink file key Nothing + addLink file key Nothing whenM isDirect $ do void $ addAssociatedFile key file {- For moveAnnex to work in direct mode, the symlink |