From 9e4b35613cf2f11318a1dba2fa47861872d7a8f2 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <viam@humac.com>
Date: Sat, 3 Mar 2012 03:42:44 +0100
Subject: [PATCH] * removed an unnecessary tempVar

---
 src/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 409916813..fb1cf07a5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -108,8 +108,7 @@ stripResult (Error s) = error $ "JSON error: " ++ s
 getMonthCount :: Int -> Int -> ServerPart Int
 getMonthCount y m  = do
     count <- queryDB "countDE" $ makeQuery startkey endkey
-    let x = map (stripResult . fromJSON . snd) count
-    return $ stripCount x
+    return . stripCount $ map (stripResult . fromJSON . snd) count
   where
     startkey = JSArray [toJSON ("count" :: String), toJSON y, toJSON m]
     endkey = JSArray [toJSON ("count" :: String), toJSON y, toJSON m, JSObject (toJSObject [] )]