[cli] feat: add anti ssh-selectors command

Author: paolino

cli/src/Cli.hs

@@ -15,7 +15,7 @@ import Data.Functor.Identity (Identity (..))
 import Facts (FactsSelection, factsCmd)
 import GitHub (Auth)
 import Lib.JSON.Canonical.Extra
-import Lib.SSH.Private (SSHClient, WithSelector (..))
+import Lib.SSH.Private (SSHClient, WithSelector (..), sshKeySelectors)
 import MPFS.API
     ( MPFS (..)
     , mpfsClient
@@ -70,6 +70,7 @@ data Command a where
         -> TokenId
         -> Command
             (AValidationResult TokenInfoFailure (Token WithValidation))
+    SSHSelectors :: SSHClient 'WithoutSelector -> Command [String]
 
 data SetupError = TokenNotSpecified
     deriving (Show, Eq)
@@ -152,6 +153,7 @@ cmd = \case
                                         $ validateRequest oracle mconfig validation req
                                 pure $ WithValidation r req
                         lift $ fmapMToken f token
+    SSHSelectors sshClient -> sshKeySelectors sshClient
 
 newtype TokenInfoFailure = TokenInfoTokenNotParsable TokenId
     deriving (Show, Eq)

cli/src/Options.hs

@@ -55,6 +55,7 @@ import User.Agent.Types (TestRunId)
 import User.Requester.Options
     ( requesterCommandParser
     , sshClientOption
+    , sshClientOptionWithoutSelector
     )
 import Wallet.Options (walletCommandParser)
 
@@ -106,6 +107,8 @@ commandParser =
                 <$> githubAuthOption
                 <*> mpfsClientOption
                 <*> tokenIdOption
+        , command "ssh-selectors" "List key selectors for an SSH key file"
+            $ Box . SSHSelectors <$> sshClientOptionWithoutSelector
         ]
 
 factsSelectionParser :: Parser (Box FactsSelection)

cli/src/User/Requester/Options.hs

@@ -5,6 +5,7 @@ module User.Requester.Options
     , addPublicKeyOptions
     , addRoleOptions
     , sshClientOption
+    , sshClientOptionWithoutSelector
     ) where
 
 import Core.Options
@@ -130,6 +131,13 @@ sshClientOption =
         <*> keyFileOption
         <*> keyPasswordOption
 
+sshClientOptionWithoutSelector
+    :: Parser (SSHClient 'WithoutSelector)
+sshClientOptionWithoutSelector =
+    SSHClient ()
+        <$> keyFileOption
+        <*> keyPasswordOption
+
 keySelectorOption :: Parser String
 keySelectorOption =
     setting