nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

even grater hash

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Avatar.hs
View file

@ -125,7 +125,7 @@ generateThumb raw = do
setImageCompressionQuality w 95 setImageCompressionQuality w 95
setImageFormat w "png" setImageFormat w "png"
getImageBlob w getImageBlob w
let h = encode (SHA3.hash 24 thumb) let h = encode (SHA3.hash 32 thumb)
return (thumb, h) return (thumb, h)
getGetAvatarR :: AvatarId -> Handler TypedContent getGetAvatarR :: AvatarId -> Handler TypedContent

2
Migration/0.0.0-0.0.1/Migration.hs
View file

@ -25,7 +25,7 @@ main = do
tups <- return $ map (\entry -> tups <- return $ map (\entry ->
case entry of case entry of
[("id", theId), ("ident", _), ("data", SqlByteString theData), ("hash", _)] -> [("id", theId), ("ident", _), ("data", SqlByteString theData), ("hash", _)] ->
[SqlByteString $ encode $ SHA3.hash 24 theData, theId] [SqlByteString $ encode $ SHA3.hash 32 theData, theId]
_ -> _ ->
error "malformed entry" error "malformed entry"
) rows ) rows