From 03b50fe85f5f770867697877d63321f8cfe1db87 Mon Sep 17 00:00:00 2001 From: jcmartin Date: Sat, 26 Oct 2024 13:18:42 -0700 Subject: [PATCH] Addresses #151 where auth function fails for mongoDB versions 4 and greater. --- Database/MongoDB/Query.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs index b83e316..33e2af4 100644 --- a/Database/MongoDB/Query.hs +++ b/Database/MongoDB/Query.hs @@ -276,10 +276,10 @@ auth un pw = do mmv <- readMaybe . T.unpack . head . T.splitOn "." <$> serverVersion maybe (return False) performAuth mmv where - performAuth majorVersion = - if majorVersion >= (3 :: Int) - then authSCRAMSHA1 un pw - else authMongoCR un pw + performAuth majorVersion + | majorVersion >= (4 :: Int) = authSCRAMSHA256 un pw + | majorVersion >= 3 = authSCRAMSHA1 un pw + | otherwise = authMongoCR un pw authMongoCR :: (MonadIO m) => Username -> Password -> Action m Bool -- ^ Authenticate with the current database, using the MongoDB-CR authentication mechanism (default in MongoDB server < 3.0)