[cli] feat: add ANTI_ANTITHESIS_USER option (issue ee9552b)

Author: notunrandom

cli/src/User/Agent/Options.hs

@@ -197,16 +197,26 @@ registryOption =
 antithesisAuthOption :: Parser AntithesisAuth
 antithesisAuthOption =
     cardanoWithPwd
-        <$> secretsParser
+        <$> antithesisUserOption
+        <*> secretsParser
             "Enter the password to access Antithesis"
             "The password to access Antithesis"
             "ANTI_ANTITHESIS_PASSWORD"
             "PASSWORD"
             "ask-antithesis-password"
             "antithesisPassword"
   where
-    cardanoWithPwd pwd =
-        AntithesisAuth{username = "cardano", password = pwd}
+    cardanoWithPwd username pwd =
+        AntithesisAuth{username = username, password = pwd}
+
+antithesisUserOption :: Parser String
+antithesisUserOption =
+    setting
+        [ env "ANTI_ANTITHESIS_USER"
+        , metavar "ANTITHESIS_USER"
+        , help "The username of the Antithesis account"
+        , reader str
+        ]
 
 downloadAssetsOptions
     :: Parser