Fixed a typo in openReplicatSetSRV' documentation strings.
Merge pull request #134 from why-not-try-calmer/adrien/typo-in-docs
This commit is contained in:
commit
80c313362b
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue