mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactoring

Browse source 
no behavior changes
This commit is contained in:
Joey Hess 2015-12-22 13:23:33 -04:00
parent ca2c977704
commit 8e9608d7f0
Failed to extract signature
9 changed files with 239 additions and 213 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/AddUrl.hs
View file

@ -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