@@ -12,7 +12,7 @@ data ConnexpayCli = ConnexpayCli { login :: Text
1212
1313connexpayOpts :: Parser ConnexpayCli
1414connexpayOpts =
15− ConnexpayCli <$> option str (long "connexpay login" <> metavar "LOGIN")
16− <*> option str (long "connexpay password" <> metavar "PASSWORD")
17− <*> option auto (long "connexpay device guid" <> metavar "GUID")
18− <*> option str (long "connexpay endpoint url" <> metavar "URL")
15+ ConnexpayCli <$> option str (long "connexpay-login" <> metavar "LOGIN")
16+ <*> option str (long "connexpay-password" <> metavar "PASSWORD")
17+ <*> option auto (long "connexpay-devguid" <> metavar "GUID")
18+ <*> option str (long "connexpay-endpoint" <> metavar "URL")