Fix small white space error

This commit is contained in:
Brian Gianforcaro 2010-01-26 04:03:59 -05:00
parent 39eec96357
commit dc2f8aa031

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))]