Fixed a typo in openReplicatSetSRV' documentation strings.

Merge pull request #134 from why-not-try-calmer/adrien/typo-in-docs
2022-09-18 18:02:35 -07:00 · 2022-09-18 18:02:35 -07:00 · 80c313362b
commit 80c313362b
parent 497025bd3c 3c3c2d1f35
1 changed files with 1 additions and 1 deletions
--- a/Database/MongoDB/Connection.hs
+++ b/Database/MongoDB/Connection.hs
@ -177,7 +177,7 @@ openReplicaSetSRV' :: HostName -> IO ReplicaSet
 -- >   do
 -- >   pipe <- openReplicatSetSRV' "cluster#.xxxxx.yyyyy.zzz"
 -- >   is_auth <- access pipe master "admin" $ auth user_name password
-- >   unless (not is_auth) (throwIO $ userError "Authentication failed!")
+-- >   unless is_auth (throwIO $ userError "Authentication failed!")
 openReplicaSetSRV' hostname = do
    timeoutSecs <- readIORef globalConnectTimeout
    _openReplicaSetSRV timeoutSecs Secure hostname