From 6045cc5c4b73829153274badfd4487203b1292ed Mon Sep 17 00:00:00 2001
From: "Scott R. Parish" <srp@srparish.net>
Date: Fri, 12 Mar 2010 23:54:41 -0600
Subject: [PATCH] format nits

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

diff --git a/Database/MongoDB.hs b/Database/MongoDB.hs
index 9523fdb..1fed3c7 100644
--- a/Database/MongoDB.hs
+++ b/Database/MongoDB.hs
@@ -72,12 +72,12 @@ import Data.ByteString.Char8 (pack)
 import Data.ByteString.Internal (c2w)
 import qualified Data.ByteString.Lazy as L
 import qualified Data.ByteString.Lazy.UTF8 as L8
+import Data.Digest.OpenSSL.MD5
 import Data.Int
 import Data.IORef
 import qualified Data.List as List
 import Data.Maybe
 import Data.Typeable
-import Data.Digest.OpenSSL.MD5
 import Database.MongoDB.BSON as BSON
 import Database.MongoDB.Util
 import qualified Network
@@ -478,7 +478,7 @@ countMatching c col sel = do
   res <- runCommand c db $ toBsonDoc [("count", toBson col'),
                                       ("query", toBson sel)]
   let cnt = (fromBson $ fromLookup $ List.lookup (s2L "n") res :: Double)
-  return $ truncate $ cnt
+  return $ truncate cnt
 
 -- | Delete documents matching /Selector/ from the given /FullCollection/.
 delete :: Connection -> FullCollection -> Selector -> IO RequestID