[cli] feat: add ANTI_SECRETS_FILE setting

Author: paolino

cli/anti.cabal

@@ -196,6 +196,7 @@ library
     , monad-control
     , old-time
     , opt-env-conf
+    , path
     , plutus-tx
     , process
     , purebred-email

cli/src/Options.hs

@@ -12,10 +12,12 @@ module Options
     , optionsParser
     , parseArgs
     , githubAuthOption
+    , secretsFileOption
     ) where
 
 import Cli (Command (..))
 import Control.Applicative (optional)
+import Control.Arrow (left)
 import Core.Options
     ( outputReferenceParser
     , tokenIdOption
@@ -34,11 +36,13 @@ import Lib.Options.Secrets (secretsParser)
 import OptEnvConf
     ( Alternative (..)
     , Parser
+    , checkEither
     , command
     , commands
     , env
     , help
     , long
+    , mapIO
     , metavar
     , option
     , reader
@@ -47,9 +51,20 @@ import OptEnvConf
     , str
     , switch
     , value
+    , withYamlConfig
     , (<|>)
     )
 import Oracle.Options (oracleCommandParser)
+import Path
+    ( Abs
+    , File
+    , Path
+    , SomeBase (Abs, Rel)
+    , parseAbsFile
+    , parseSomeFile
+    , toFilePath
+    )
+import System.Directory (makeAbsolute)
 import User.Agent.Options (agentCommandParser, testRunIdOption)
 import User.Agent.Types (TestRunId)
 import User.Requester.Options
@@ -221,11 +236,28 @@ parseArgs version =
     runParser
         version
         intro
-        optionsParser
+        $ withYamlConfig secretsFileOption optionsParser
 
 retractRequestOptions :: Parser (Box Command)
 retractRequestOptions =
     fmap (fmap Box) . RetractRequest
         <$> mpfsClientOption
         <*> walletOption
         <*> outputReferenceParser
+
+secretsFileOption :: Parser (Maybe (Path Abs File))
+secretsFileOption =
+    optional
+        $ parsePath
+        $ setting
+            [ long "secrets-file"
+            , metavar "FILEPATH"
+            , help "The file path to a YAML file containing secrets"
+            , reader str
+            , option
+            , env "ANTI_SECRETS_FILE"
+            ]
+  where
+    parsePath = mapIO absolutize . checkEither (left show . parseSomeFile)
+    absolutize (Abs fp) = pure fp
+    absolutize (Rel fp) = makeAbsolute (toFilePath fp) >>= parseAbsFile

cli/src/Oracle/Process.hs

@@ -27,7 +27,7 @@ import Data.String.QQ (s)
 import GitHub (Auth)
 import MPFS.API (mpfsClient)
 import OptEnvConf
-import Options (githubAuthOption)
+import Options (githubAuthOption, secretsFileOption)
 import Oracle.Token.Cli
     ( TokenCommand (..)
     , TokenUpdateFailure
@@ -67,7 +67,9 @@ parseArgs =
     runParser
         version
         intro
-        processOptionsParser
+        $ withYamlConfig
+            secretsFileOption
+            processOptionsParser
 
 data ProcessOptions = ProcessOptions
     { poAuth :: Auth