From ee8cd251384faca3216c2c6b76d5dac4520fbda6 Mon Sep 17 00:00:00 2001
From: "Scott R. Parish" <sparish@peak6.com>
Date: Mon, 18 Jan 2010 14:19:25 -0600
Subject: [PATCH] disconnect

---
 Database/MongoDB.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Database/MongoDB.hs b/Database/MongoDB.hs
index 3d3c627..5ec9636 100644
--- a/Database/MongoDB.hs
+++ b/Database/MongoDB.hs
@@ -27,7 +27,7 @@ module Database.MongoDB
     (
      -- * Connection
      Connection,
-     connect, connectOnPort, conClose,
+     connect, connectOnPort, conClose, disconnect,
      -- * Basic database operations
      Collection, FieldSelector, NumToSkip, NumToReturn, Selector,
      QueryOpt(..),
@@ -84,6 +84,10 @@ connectOnPort host port = do
 conClose :: Connection -> IO ()
 conClose = hClose . cHandle
 
+-- | Alias for 'conClose'
+disconnect :: Connection -> IO ()
+disconnect = conClose
+
 -- | An Itertaor over the results of a query. Use 'nextDoc' to get each
 -- successive result document, or 'allDocs' or 'allDocs'' to get lazy or
 -- strict lists of results.