Fix small white space error
This commit is contained in:
parent
39eec96357
commit
dc2f8aa031
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