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

toying with Avatar caching

Browse source
This commit is contained in:
nek0 2015-07-28 21:48:09 +02:00
parent 6e93762eee
commit 43d587b2ad
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Avatar.hs
View file

@ -25,7 +25,8 @@ postNewAvatarR = do
FormSuccess na -> do FormSuccess na -> do
raw <- runResourceT $ fileSource (avatarNewFile na) $$ sinkLbs raw <- runResourceT $ fileSource (avatarNewFile na) $$ sinkLbs
thumb <- generateThumb $ B.concat $ L.toChunks raw thumb <- generateThumb $ B.concat $ L.toChunks raw
runDB $ insert_ $ Avatar (avatarNewIdent na) thumb now <- liftIO $ getCurrentTime
runDB $ insert_ $ Avatar (avatarNewIdent na) thumb now
setMessageI MsgAvatarUploadSuccessfull setMessageI MsgAvatarUploadSuccessfull
redirect $ HomeR redirect $ HomeR
_ -> do _ -> do

1
config/models
View file

@ -32,6 +32,7 @@ CashCheck
Avatar Avatar
ident Text ident Text
data ByteString data ByteString
altTime UTCTime default=now()
deriving Typeable Show deriving Typeable Show
Barcode Barcode
code Text code Text