Fix small white space error

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

View file

@ -130,7 +130,7 @@ serverInfo c =
-- --
-- Force a clean exit, flushing and closing all data files. -- Force a clean exit, flushing and closing all data files.
-- Note that it will wait until all ongoing operations are complete. -- Note that it will wait until all ongoing operations are complete.
serverShutdown:: Connection -> IO BsonDoc serverShutdown :: Connection -> IO BsonDoc
serverShutdown c = serverShutdown c =
runCommand c (s2L "admin") $ toBsonDoc [("shutdown", toBson (1::Int))] runCommand c (s2L "admin") $ toBsonDoc [("shutdown", toBson (1::Int))]