Connect CardanoChainConfig in Options

Signed-off-by: Sasha Bogicevic <[email protected]>

Author: v0d1ch

hydra-node/src/Hydra/Options.hs

@@ -155,6 +155,12 @@ defaultDirectBackend =
     , nodeSocket = "node.socket"
     }
 
+defaultCardanoBackend :: ChainBackend
+defaultCardanoBackend =
+  BlockfrostBackend
+    { projectPath = "/home/v0d1ch/code/hydra/blockfrost-project.txt"
+    }
+
 data ChainBackend
   = DirectBackend
       { networkId :: NetworkId
@@ -282,6 +288,7 @@ runOptionsParser =
 chainConfigParser :: Parser ChainConfig
 chainConfigParser =
   Direct <$> directChainConfigParser
+    <|> Cardano <$> cardanoChainConfigParser
     <|> Offline <$> offlineChainConfigParser
 
 chainBackendParser :: Parser ChainBackend
@@ -393,6 +400,18 @@ data CardanoChainConfig = CardanoChainConfig
   deriving stock (Eq, Show, Generic)
   deriving anyclass (ToJSON, FromJSON)
 
+defaultCardanoChainConfig :: CardanoChainConfig
+defaultCardanoChainConfig =
+  CardanoChainConfig
+    { hydraScriptsTxId = []
+    , cardanoSigningKey = "cardano.sk"
+    , cardanoVerificationKeys = []
+    , startChainFrom = Nothing
+    , contestationPeriod = defaultContestationPeriod
+    , depositDeadline = defaultDepositDeadline
+    , chainBackend = defaultCardanoBackend
+    }
+
 data DirectChainConfig = DirectChainConfig
   { networkId :: NetworkId
   -- ^ Network identifer to which we expect to connect.
@@ -436,6 +455,14 @@ data BlockfrostChainConfig = BlockfrostChainConfig
   }
   deriving stock (Eq, Show, Generic)
 
+defaultBlockfrostChainConfig :: BlockfrostChainConfig
+defaultBlockfrostChainConfig =
+  BlockfrostChainConfig
+    { projectPath = "/home/v0d1ch/code/hydra/blockfrost-project.txt"
+    , hydraScriptsTxId = []
+    , cardanoSigningKey = "cardano.sk"
+    }
+
 instance Arbitrary ChainConfig where
   arbitrary =
     oneof
@@ -525,6 +552,17 @@ directChainConfigParser =
     <*> contestationPeriodParser
     <*> depositDeadlineParser
 
+cardanoChainConfigParser :: Parser CardanoChainConfig
+cardanoChainConfigParser =
+  CardanoChainConfig
+    <$> (hydraScriptsTxIdsParser <|> many hydraScriptsTxIdParser)
+    <*> cardanoSigningKeyFileParser
+    <*> many cardanoVerificationKeyFileParser
+    <*> optional startChainFromParser
+    <*> contestationPeriodParser
+    <*> depositDeadlineParser
+    <*> chainBackendParser
+
 blockfrostProjectPathParser :: Parser FilePath
 blockfrostProjectPathParser =
   strOption