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

warning reduction

Browse source
This commit is contained in:
nek0 2015-09-16 18:47:36 +02:00
parent b7a994ea08
commit f7656110ae
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Avatar.hs
View file

@ -116,8 +116,8 @@ generateThumb raw =
readImageBlob w raw
w1 <- getImageWidth w
h1 <- getImageHeight w
let h2 = 140
let w2 = floor (fromIntegral w1 / fromIntegral h1 * fromIntegral h2 :: Double)
let h2 = 140 :: Int
let w2 = floor (fromIntegral w1 / fromIntegral h1 * fromIntegral h2 :: Double) :: Int
resizeImage w w2 h2 lanczosFilter 1
setImageCompressionQuality w 95
setImageFormat w "png"