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

truncate each compontent of path

Browse source
This commit is contained in:
Joey Hess 2014-12-11 20:13:57 -04:00
parent 5861ed680e
commit 199b6f4944
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/AddUrl.hs
View file

@ -82,7 +82,7 @@ seek us = do
startRemote :: Remote -> Bool -> FilePath -> URLString -> Maybe Integer -> CommandStart
startRemote r relaxed file uri sz = do
pathmax <- liftIO $ fileNameLengthLimit "."
let file' = truncateFilePath pathmax file
let file' = joinPath $ map (truncateFilePath pathmax) $ splitDirectories file
showStart "addurl" file'
showNote $ "from " ++ Remote.name r
next $ performRemote r relaxed uri file' sz