summaryrefslogtreecommitdiff
path: root/Backend/URL.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Backend/URL.hs')
-rw-r--r--Backend/URL.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/Backend/URL.hs b/Backend/URL.hs
index cc9112a36..81c287cfd 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -32,10 +32,10 @@ fromUrl url size = stubKey
, keyBackendName = "URL"
, keySize = size
}
- where
- -- when it's not too long, use the url as the key name
- -- 256 is the absolute filename max, but use a shorter
- -- length because this is not the entire key filename.
- key
- | length url < 128 = url
- | otherwise = take 128 url ++ "-" ++ md5s (Str url)
+ where
+ {- when it's not too long, use the url as the key name
+ - 256 is the absolute filename max, but use a shorter
+ - length because this is not the entire key filename. -}
+ key
+ | length url < 128 = url
+ | otherwise = take 128 url ++ "-" ++ md5s (Str url)