about summary refs log tree commit diff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorVincent Ambo <viam@humac.com>2012-03-03T02·42+0100
committerVincent Ambo <viam@humac.com>2012-03-03T02·42+0100
commit9e4b35613cf2f11318a1dba2fa47861872d7a8f2 (patch)
tree2c05b3a76a8429e08f5a307bc47e21c48ee859a3 /src/Main.hs
parent907eecf8c7827047073039403bfe74b3654c6e13 (diff)
* removed an unnecessary tempVar
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 40991681391f..fb1cf07a5d39 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 [] )]