Add username support in auth command

src/Database/Redis/Commands.hs

@@ -3,7 +3,14 @@
 module Database.Redis.Commands (
 
 -- ** Connection
-auth, -- |Authenticate to the server (<http://redis.io/commands/auth>). Since Redis 1.0.0
+
+-- *** auth
+-- $auth
+auth, 
+authOpts,
+AuthOpts(..),
+defaultAuthOpts,
+-- *** Other commands
 echo, -- |Echo the given string (<http://redis.io/commands/echo>). Since Redis 1.0.0
 ping, -- |Ping the server (<http://redis.io/commands/ping>). Since Redis 1.0.0
 quit, -- |Close the connection (<http://redis.io/commands/quit>). Since Redis 1.0.0
@@ -1167,3 +1174,7 @@ sismember key member = sendRequest (["SISMEMBER"] ++ [encode key] ++ [encode mem
 
 -- $xgroupSetId
 -- Sets last delivered ID for a consumer group. The redis command @XGROUP SETID@ is split up into 'xgroupSetId' and 'xgroupSetIdOpts' methods.
+
+
+-- $auth
+-- Authenticate to the server (<http://redis.io/commands/auth>). Since Redis 1.0.0

src/Database/Redis/ManualCommands.hs

@@ -1727,11 +1727,46 @@ xtrim stream opts = sendRequest $ ["XTRIM", stream] ++ internalTrimArgToList opt
 inf :: RealFloat a => a
 inf = 1 / 0
 
+-- | Additional parameters for the auth command.
+data AuthOpts = AuthOpts
+  { authOptsUsername
+    :: Maybe ByteString
+    {- ^ Username.
+
+      Since Redis 6.0: fails on earlier 
+     -}
+  }
+
+-- | Default options for AuthOpts
+--
+-- >>> defaultAuthOpts
+-- AuthOpts { authOptsUsername = Nothing }
+defaultAuthOpts :: AuthOpts
+defaultAuthOpts = AuthOpts
+  { authOptsUsername = Nothing
+  }
+
+-- | /O(N)/ where N is the number of passwords defined for the user.
+--
+-- Authenticates client to the server.
 auth
     :: RedisCtx m f
-    => ByteString -- ^ password
+    => ByteString -- ^ Password.
+    -> m (f Status)
+auth password = authOpts password defaultAuthOpts
+
+-- | /O(N)/ where N is the number of passwords defined for the user.
+--
+-- Authenticates client to the server.
+--
+-- This method allows passing additional options.
+authOpts
+    :: RedisCtx m f
+    => ByteString -- ^ Password.
+    -> AuthOpts -- ^ Additional options.
     -> m (f Status)
-auth password = sendRequest ["AUTH", password]
+authOpts password AuthOpts{..} = sendRequest $
+  ["AUTH"] <> maybe [] (:[]) authOptsUsername <> [password]
 
 -- the select command. used in 'connect'.
 select