From 3c3c2d1f359ecad8327056bc03035b2635d79b53 Mon Sep 17 00:00:00 2001 From: why-not-try-calmer Date: Fri, 2 Sep 2022 10:53:06 +0200 Subject: [PATCH] Fixed a typo in openReplicatSetSRV' documentation strings. --- Database/MongoDB/Connection.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Database/MongoDB/Connection.hs b/Database/MongoDB/Connection.hs index 0d386de..63b0786 100644 --- 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