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

truncate over-long paths

Browse source
This commit is contained in:
Joey Hess 2014-12-11 20:10:45 -04:00
parent 67c05daf5e
commit 57b2473360
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Command/AddUrl.hs
View file

@ -81,9 +81,11 @@ seek us = do
startRemote :: Remote -> Bool -> FilePath -> URLString -> Maybe Integer -> CommandStart
startRemote r relaxed file uri sz = do
showStart "addurl" file
pathmax <- liftIO $ fileNameLengthLimit "."
let file' = truncateFilePath pathmax file
showStart "addurl" file'
showNote $ "from " ++ Remote.name r
next $ performRemote r relaxed uri file sz
next $ performRemote r relaxed uri file' sz
performRemote :: Remote -> Bool -> URLString -> FilePath -> Maybe Integer -> CommandPerform
performRemote r relaxed uri file sz = ifAnnexed file adduri geturi