Fix small white space error
Signed-off-by: Scott R. Parish <sparish@peak6.com>
This commit is contained in:
parent
78a526d9d7
commit
4c369f7a92
1 changed files with 1 additions and 1 deletions
|
@ -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))]
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue