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