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

greater hash size

Browse source
This commit is contained in:
nek0 2015-09-17 16:06:50 +02:00
parent 3e783aafa2
commit 4d4e68ff11
2 changed files with 3 additions and 3 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 8 thumb) let h = encode (SHA3.hash 24 thumb)
return (thumb, h) return (thumb, h)
getGetAvatarR :: AvatarId -> Handler TypedContent getGetAvatarR :: AvatarId -> Handler TypedContent

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

@ -19,13 +19,13 @@ main = do
dbPasswd <- getPasswd dbPasswd <- getPasswd
let dbString = "host=" ++ dbHost ++ " port=" ++ dbPort ++ " user=" ++ dbUser ++ " dbname=" ++ dbName ++ " password=" ++ dbPasswd let dbString = "host=" ++ dbHost ++ " port=" ++ dbPort ++ " user=" ++ dbUser ++ " dbname=" ++ dbName ++ " password=" ++ dbPasswd
conn <- connectPostgreSQL dbString conn <- connectPostgreSQL dbString
stmt1 <- prepare conn "select * from avatar where hash = 'fill_me!'" stmt1 <- prepare conn "select * from avatar"
_ <- execute stmt1 [] _ <- execute stmt1 []
rows <- fetchAllRowsAL stmt1 rows <- fetchAllRowsAL stmt1
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 8 theData, theId] [SqlByteString $ encode $ SHA3.hash 24 theData, theId]
_ -> _ ->
error "malformed entry" error "malformed entry"
) rows ) rows