From f7656110ae7630a6b7895656ee2ad994f185763a Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 16 Sep 2015 18:47:36 +0200
Subject: [PATCH] warning reduction

---
 Handler/Avatar.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/Avatar.hs b/Handler/Avatar.hs
index c358bf6..7bd30b8 100644
--- a/Handler/Avatar.hs
+++ b/Handler/Avatar.hs
@@ -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"