summaryrefslogtreecommitdiff
path: root/Command/AddUrl.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-02-16 19:37:02 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-02-16 19:37:02 -0400
commit69a0161c3afb9d6f7062ffac206044d95d3ee85a (patch)
tree2ae035c21a279b52243f571452f6f850dcd6fff7 /Command/AddUrl.hs
parent990fcad9787ef5fa3b7c039c3ee01ef298b60a27 (diff)
fix filename limit when using --pathdepth
Diffstat (limited to 'Command/AddUrl.hs')
-rw-r--r--Command/AddUrl.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs
index f87417d5d..3d484a1d3 100644
--- a/Command/AddUrl.hs
+++ b/Command/AddUrl.hs
@@ -95,8 +95,8 @@ url2file url pathdepth = case pathdepth of
| otherwise -> error "bad --pathdepth"
where
fullurl = uriRegName auth ++ uriPath url ++ uriQuery url
- frombits a = filesize $ join "/" $ a urlbits
- urlbits = map escape $ filter (not . null) $ split "/" fullurl
+ frombits a = join "/" $ a urlbits
+ urlbits = map (filesize . escape) $ filter (not . null) $ split "/" fullurl
auth = fromMaybe (error $ "bad url " ++ show url) $ uriAuthority url
filesize = take 255
escape = replace "/" "_" . replace "?" "_"