Fixed a typo in openReplicatSetSRV' documentation strings.

This commit is contained in:
why-not-try-calmer 2022-09-02 10:53:06 +02:00
parent 497025bd3c
commit 3c3c2d1f35

View file

@ -177,7 +177,7 @@ openReplicaSetSRV' :: HostName -> IO ReplicaSet
-- > do -- > do
-- > pipe <- openReplicatSetSRV' "cluster#.xxxxx.yyyyy.zzz" -- > pipe <- openReplicatSetSRV' "cluster#.xxxxx.yyyyy.zzz"
-- > is_auth <- access pipe master "admin" $ auth user_name password -- > 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 openReplicaSetSRV' hostname = do
timeoutSecs <- readIORef globalConnectTimeout timeoutSecs <- readIORef globalConnectTimeout
_openReplicaSetSRV timeoutSecs Secure hostname _openReplicaSetSRV timeoutSecs Secure hostname