even grater hash

This commit is contained in:
nek0 2015-09-17 16:15:46 +02:00
parent 4d4e68ff11
commit ab8a869ea8
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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