Fix encoding of nft metadata files

input-output-hk · Nov 27, 2023 · 08aa0cd · 08aa0cd
1 parent 739408f
commit 08aa0cd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/marlowe-runtime/tx-api/Language/Marlowe/Runtime/Transaction/Api.hs b/marlowe-runtime/tx-api/Language/Marlowe/Runtime/Transaction/Api.hs
@@ -311,11 +311,12 @@ encodeRoleTokenMetadata = encodeNFTMetadataDetails
 
     encodeNFTMetadataFile :: NFTMetadataFile -> Metadata
     encodeNFTMetadataFile NFTMetadataFile{..} =
-      MetadataMap
+      MetadataMap $
         [ (MetadataText "name", MetadataText name)
         , (MetadataText "mediaType", encodeMediaType mediaType)
         , (MetadataText "src", encodeText $ fromString $ Network.uriToString id src "")
         ]
+          <> fmap (first MetadataText) (Map.toList additionalProperties)
 
     encodeMediaType :: MediaType -> Metadata
     encodeMediaType = MetadataText . Text.pack . show