Fixed a typo in openReplicatSetSRV' documentation strings.

2022-09-02 10:53:06 +02:00 · 2022-09-02 10:53:06 +02:00 · 3c3c2d1f35
commit 3c3c2d1f35
parent 497025bd3c
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