diff options
author | Joey Hess <joeyh@joeyh.name> | 2019-01-01 14:54:06 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2019-01-01 14:55:15 -0400 |
commit | b3c69eaaf831084cef5ce53cda15e2b09aa87a17 (patch) | |
tree | 98bd6bff171de6ac00f6bee01cd0c5857943e7ba /Backend | |
parent | 9cc6d5549b84e0ca8a0375aa14ecc8d359c977cc (diff) |
strict bytestring encoders and decoders
Only had lazy ones before.
Already sped up a few parts of the code.
Diffstat (limited to 'Backend')
-rw-r--r-- | Backend/Utilities.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/Utilities.hs b/Backend/Utilities.hs index 1691fa2b22..adea26ac8b 100644 --- a/Backend/Utilities.hs +++ b/Backend/Utilities.hs @@ -20,7 +20,7 @@ genKeyName s -- Avoid making keys longer than the length of a SHA256 checksum. | bytelen > sha256len = truncateFilePath (sha256len - md5len - 1) s' ++ "-" ++ - show (md5 (encodeBS s)) + show (md5 (encodeBL s)) | otherwise = s' where s' = preSanitizeKeyName s |