From 1dc12beef33c907f733b7ea8540b5127f912fad1 Mon Sep 17 00:00:00 2001 From: Andrea Condoluci Date: Fri, 3 Apr 2020 09:46:07 +0200 Subject: [PATCH] Fix typo --- Database/MongoDB/Admin.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Database/MongoDB/Admin.hs b/Database/MongoDB/Admin.hs index afa5ff6..1afbba7 100644 --- a/Database/MongoDB/Admin.hs +++ b/Database/MongoDB/Admin.hs @@ -198,7 +198,7 @@ allUsers = map (exclude ["_id"]) `liftM` (rest =<< find addUser :: (MonadIO m) => Bool -> Username -> Password -> Action m () --- ^ Add user with password with read-only access if the boolean argument is @True@, or read-write access if its is @False@ +-- ^ Add user with password with read-only access if the boolean argument is @True@, or read-write access if it's @False@ addUser readOnly user pass = do mu <- findOne (select ["user" =: user] "system.users") let usr = merge ["readOnly" =: readOnly, "pwd" =: pwHash user pass] (maybe ["user" =: user] id mu)