diff options
| author | Vincent Ambo <viam@humac.com> | 2012-03-03T02·42+0100 |
|---|---|---|
| committer | Vincent Ambo <viam@humac.com> | 2012-03-03T02·42+0100 |
| commit | 9e4b35613cf2f11318a1dba2fa47861872d7a8f2 (patch) | |
| tree | 2c05b3a76a8429e08f5a307bc47e21c48ee859a3 /src/Main.hs | |
| parent | 907eecf8c7827047073039403bfe74b3654c6e13 (diff) | |
* removed an unnecessary tempVar
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
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 [] )] |