Bump cardano-node to v10.1.2, Fix HydraTxOut json codec

Author: errfrom

example/minimal/docker/cluster/docker-compose.yaml

@@ -1,6 +1,6 @@
 services:
   cardano-node:
-    image: ghcr.io/intersectmbo/cardano-node:9.2.0
+    image: ghcr.io/intersectmbo/cardano-node:10.1.2
     environment:
       - NETWORK=preprod
     volumes:

flake.lock

@@ -8,9 +8,18 @@
 
   inputs = {
     nixpkgs.follows = "ctl/nixpkgs";
-    cardano-node.url = "github:input-output-hk/cardano-node/9.2.0";
-    ctl.url = "github:Plutonomicon/cardano-transaction-lib/4bae6a202f3c77952d6067f94d8ae63cb74f3c0f";
-    ctl.inputs.cardano-node.follows = "cardano-node";
+    cardano-node.url = "github:input-output-hk/cardano-node/10.1.2";
+    cardano-configurations = {
+      url = "github:input-output-hk/cardano-configurations?rev=3c5f35bda1b8fd29ab310ad222403a9167f512de";
+      flake = false;
+    };
+    ctl = {
+      url = "github:Plutonomicon/cardano-transaction-lib/4bae6a202f3c77952d6067f94d8ae63cb74f3c0f";
+      inputs = {
+        cardano-node.follows = "cardano-node";
+        cardano-configurations.follows = "cardano-configurations";
+      };
+    };
     hydra.url = "github:input-output-hk/hydra/0.19.0";
   };
 

flake.nix

@@ -129,7 +129,7 @@ txOutCodec =
         maybe (OutputDatumHash <$> rec.datumhash) (Just <<< OutputDatum)
           rec.inlineDatum
     , scriptRef:
-        rec.referenceScript.script >>= \{ cborHex: scriptCbor, "type": scriptLang } ->
+        rec.referenceScript >>= \{ script: { cborHex: scriptCbor, "type": scriptLang } } ->
           case scriptLang of
             SimpleScript -> NativeScriptRef <$> decodeCbor scriptCbor
             -- TODO: Plutus version encoded in CBOR?
@@ -145,21 +145,22 @@ txOutCodec =
     , datum: Nothing -- FIXME: should we resolve the datum?
     , datumhash: outputDatumDataHash =<< rec.datum
     , referenceScript:
-        { script:
-            rec.scriptRef <#> case _ of
-              NativeScriptRef nativeScript ->
-                { cborHex: encodeCbor nativeScript
-                , "type": SimpleScript
-                }
-              PlutusScriptRef plutusScript@(PlutusScript (_ /\ scriptLang)) ->
-                { cborHex: encodeCbor plutusScript
-                , "type":
-                    case scriptLang of
-                      PlutusV1 -> PlutusScriptV1
-                      PlutusV2 -> PlutusScriptV2
-                      PlutusV3 -> PlutusScriptV3
-                }
-        }
+        rec.scriptRef <#> \scriptRef ->
+          { script:
+              case scriptRef of
+                NativeScriptRef nativeScript ->
+                  { cborHex: encodeCbor nativeScript
+                  , "type": SimpleScript
+                  }
+                PlutusScriptRef plutusScript@(PlutusScript (_ /\ scriptLang)) ->
+                  { cborHex: encodeCbor plutusScript
+                  , "type":
+                      case scriptLang of
+                        PlutusV1 -> PlutusScriptV1
+                        PlutusV2 -> PlutusScriptV2
+                        PlutusV3 -> PlutusScriptV3
+                  }
+          }
     }
 
 --
@@ -173,7 +174,7 @@ type HydraTxOut =
   , inlineDatumhash :: Maybe DataHash
   , datum :: Maybe PlutusData
   , datumhash :: Maybe DataHash
-  , referenceScript :: { script :: Maybe HydraReferenceScript }
+  , referenceScript :: Maybe { script :: HydraReferenceScript }
   }
 
 hydraTxOutCodec :: CA.JsonCodec HydraTxOut
@@ -186,8 +187,8 @@ hydraTxOutCodec =
     , datum: CA.maybe plutusDataCodec
     , datumhash: CA.maybe dataHashCodec
     , referenceScript:
-        CA.object "HydraTxOut:referenceScript" $ CAR.record
-          { script: CA.maybe hydraRefScriptCodec
+        CA.maybe $ CA.object "HydraTxOut:referenceScript" $ CAR.record
+          { script: hydraRefScriptCodec
           }
     }