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

also verify new urls when adding them to existing files

Browse source
This commit is contained in:
Joey Hess 2012-02-10 19:40:36 -04:00
parent 17fed709c8
commit a3ebf16e62
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/AddUrl.hs
View file

@ -19,6 +19,7 @@ import qualified Utility.Url as Url
import Annex.Content import Annex.Content
import Logs.Web import Logs.Web
import qualified Option import qualified Option
import Types.Key
def :: [Command] def :: [Command]
def = [withOptions [fileOption] $ def = [withOptions [fileOption] $
@ -50,6 +51,8 @@ perform url file = ifAnnexed file addurl geturl
fast <- Annex.getState Annex.fast fast <- Annex.getState Annex.fast
if fast then nodownload url file else download url file if fast then nodownload url file else download url file
addurl (key, _backend) = do addurl (key, _backend) = do
unlessM (liftIO $ Url.check url (keySize key)) $
error $ "failed to verify url: " ++ url
setUrlPresent key url setUrlPresent key url
next $ return True next $ return True