Write open roles validator to marlowe transaction file

input-output-hk · Sep 26, 2023 · f764c1b · f764c1b
1 parent 432cef3
commit f764c1b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/marlowe-cli/src/Language/Marlowe/CLI/Types.hs b/marlowe-cli/src/Language/Marlowe/CLI/Types.hs
@@ -451,6 +451,7 @@ instance (IsPlutusScriptLanguage lang, IsShelleyBasedEra era) => ToJSON (Marlowe
     object
       [ "marloweValidator" .= toJSON mtValidator
       , "rolesValidator" .= toJSON mtRoleValidator
+      , "openRolesValidator" .= toJSON mtOpenRoleValidator
       , "roles" .= toJSON mtRolesCurrency
       , "state" .= toJSON mtState
       , "contract" .= toJSON mtContract