From 68db2f3217ff590ca768f5f56c8ba0be39eac288 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Dec 2014 20:13:57 -0400 Subject: truncate each compontent of path --- Command/AddUrl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3