diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2014-12-11 20:13:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-11 20:13:57 -0400 |
| commit | 68db2f3217ff590ca768f5f56c8ba0be39eac288 (patch) | |
| tree | 6cd7eaa80b4fb9f60c29d15bbd7d2de71af119e7 /Command | |
| parent | 7504b0ccbb22ee9e33ee6b6a9c2e2b32bde571ab (diff) | |
truncate each compontent of path
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/AddUrl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 667d72895..f3b4cf130 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -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 |