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.
|
||||
-- Note that it will wait until all ongoing operations are complete.
|
||||
serverShutdown:: Connection -> IO BsonDoc
|
||||
serverShutdown :: Connection -> IO BsonDoc
|
||||
serverShutdown c =
|
||||
runCommand c (s2L "admin") $ toBsonDoc [("shutdown", toBson (1::Int))]
|
||||
|
||||
|
|
Loading…
Reference in a new issue