Add and expose serverShutdown.

Signed-off-by: Scott R. Parish <sparish@peak6.com>
This commit is contained in:
Brian Gianforcaro 2010-01-26 04:02:47 -05:00 committed by Scott R. Parish
parent 73d147f875
commit 78a526d9d7

View file

@ -28,7 +28,7 @@ module Database.MongoDB
-- * Connection
Connection,
connect, connectOnPort, conClose, disconnect, dropDatabase,
serverInfo,
serverInfo, serverShutdown,
databasesInfo, databaseNames,
-- * Database
Database, MongoDBCollectionInvalid,
@ -126,6 +126,14 @@ serverInfo :: Connection -> IO BsonDoc
serverInfo c =
runCommand c (s2L "admin") $ toBsonDoc [("buildinfo", toBson (1::Int))]
-- | Shut down the MongoDB server.
--
-- Force a clean exit, flushing and closing all data files.
-- Note that it will wait until all ongoing operations are complete.
serverShutdown:: Connection -> IO BsonDoc
serverShutdown c =
runCommand c (s2L "admin") $ toBsonDoc [("shutdown", toBson (1::Int))]
-- | Return a list of collections in /Database/.
collectionNames :: Connection -> Database -> IO [FullCollection]
collectionNames c db = do