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

zero still bad

Browse source
This commit is contained in:
Joey Hess 2012-02-16 14:28:17 -04:00
parent 346c934409
commit d05550e803
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/AddUrl.hs
View file

@ -91,7 +91,8 @@ url2file url pathdepth = case pathdepth of
Nothing -> filesize $ escape fullurl Nothing -> filesize $ escape fullurl
Just depth Just depth
| depth > 0 -> frombits $ drop depth | depth > 0 -> frombits $ drop depth
| otherwise -> frombits $ reverse . take (negate depth) . reverse | depth < 0 -> frombits $ reverse . take (negate depth) . reverse
| otherwise -> error "bad --pathdepth"
where where
fullurl = uriRegName auth ++ uriPath url ++ uriQuery url fullurl = uriRegName auth ++ uriPath url ++ uriQuery url
frombits a = filesize $ join "/" $ a urlbits frombits a = filesize $ join "/" $ a urlbits