From d05550e8039dc38b6c83c88aef7da8a593b7c5aa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 Feb 2012 14:28:17 -0400 Subject: zero still bad --- Command/AddUrl.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 0b4131067..f87417d5d 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -91,7 +91,8 @@ url2file url pathdepth = case pathdepth of Nothing -> filesize $ escape fullurl Just depth | depth > 0 -> frombits $ drop depth - | otherwise -> frombits $ reverse . take (negate depth) . reverse + | depth < 0 -> frombits $ reverse . take (negate depth) . reverse + | otherwise -> error "bad --pathdepth" where fullurl = uriRegName auth ++ uriPath url ++ uriQuery url frombits a = filesize $ join "/" $ a urlbits -- cgit v1.2.3