Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fixed a typo in openReplicatSetSRV' documentation strings.

Browse source
This commit is contained in:
why-not-try-calmer 2022-09-02 10:53:06 +02:00
parent 497025bd3c
commit 3c3c2d1f35
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Database/MongoDB/Connection.hs
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