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