From ab8a869ea8cbe0dec851b087dcd1e4b750e26c4a Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 17 Sep 2015 16:15:46 +0200 Subject: [PATCH] even grater hash --- Handler/Avatar.hs | 2 +- Migration/0.0.0-0.0.1/Migration.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/Avatar.hs b/Handler/Avatar.hs index 67f7bc9..4bdd492 100644 --- a/Handler/Avatar.hs +++ b/Handler/Avatar.hs @@ -125,7 +125,7 @@ generateThumb raw = do setImageCompressionQuality w 95 setImageFormat w "png" getImageBlob w - let h = encode (SHA3.hash 24 thumb) + let h = encode (SHA3.hash 32 thumb) return (thumb, h) getGetAvatarR :: AvatarId -> Handler TypedContent diff --git a/Migration/0.0.0-0.0.1/Migration.hs b/Migration/0.0.0-0.0.1/Migration.hs index 93f6f81..6fe4bed 100644 --- a/Migration/0.0.0-0.0.1/Migration.hs +++ b/Migration/0.0.0-0.0.1/Migration.hs @@ -25,7 +25,7 @@ main = do tups <- return $ map (\entry -> case entry of [("id", theId), ("ident", _), ("data", SqlByteString theData), ("hash", _)] -> - [SqlByteString $ encode $ SHA3.hash 24 theData, theId] + [SqlByteString $ encode $ SHA3.hash 32 theData, theId] _ -> error "malformed entry" ) rows