Make metadata hash be just bytes

Author: jasagredo

eras/allegra/impl/cddl-files/allegra.cddl

@@ -208,12 +208,10 @@ dns_name = text .size (0 .. 64)
 ; dns_name: An SRV DNS record
 multi_host_name = (2, dns_name)
 
-pool_metadata = [url, metadata_hash]
+pool_metadata = [url, bytes]
 
 url = text .size (0 .. 64)
 
-metadata_hash = hash32
-
 pool_retirement = (4, pool_keyhash, epoch)
 
 epoch = uint
@@ -272,6 +270,8 @@ maxWord64 = 18446744073709551615
 
 nonce = [0// 1, bytes .size 32]
 
+metadata_hash = hash32
+
 transaction_witness_set = 
   {? 0 : [* vkeywitness], ? 1 : [* native_script], ? 2 : [* bootstrap_witness]}
 

eras/alonzo/impl/cddl-files/alonzo.cddl

@@ -240,12 +240,10 @@ dns_name = text .size (0 .. 64)
 ; dns_name: An SRV DNS record
 multi_host_name = (2, dns_name)
 
-pool_metadata = [url, metadata_hash]
+pool_metadata = [url, bytes]
 
 url = text .size (0 .. 64)
 
-metadata_hash = hash32
-
 pool_retirement = (4, pool_keyhash, epoch)
 
 epoch = uint

eras/babbage/impl/cddl-files/babbage.cddl

@@ -329,12 +329,10 @@ dns_name = text .size (0 .. 64)
 ; dns_name: An SRV DNS record
 multi_host_name = (2, dns_name)
 
-pool_metadata = [url, metadata_hash]
+pool_metadata = [url, bytes]
 
 url = text .size (0 .. 64)
 
-metadata_hash = hash32
-
 pool_retirement = (4, pool_keyhash, epoch)
 
 epoch = uint

eras/mary/impl/cddl-files/mary.cddl

@@ -216,12 +216,10 @@ dns_name = text .size (0 .. 64)
 ; dns_name: An SRV DNS record
 multi_host_name = (2, dns_name)
 
-pool_metadata = [url, metadata_hash]
+pool_metadata = [url, bytes]
 
 url = text .size (0 .. 64)
 
-metadata_hash = hash32
-
 pool_retirement = (4, pool_keyhash, epoch)
 
 epoch = uint
@@ -280,6 +278,8 @@ maxWord64 = 18446744073709551615
 
 nonce = [0// 1, bytes .size 32]
 
+metadata_hash = hash32
+
 mint = multiasset<int64>
 
 int64 = -9223372036854775808 .. 9223372036854775807

eras/shelley/impl/cddl-files/shelley.cddl

@@ -206,12 +206,10 @@ dns_name = text .size (0 .. 64)
 ; dns_name: An SRV DNS record
 multi_host_name = (2, dns_name)
 
-pool_metadata = [url, metadata_hash]
+pool_metadata = [url, bytes]
 
 url = text .size (0 .. 64)
 
-metadata_hash = hash32
-
 pool_retirement = (4, pool_keyhash, epoch)
 
 epoch = uint
@@ -270,6 +268,8 @@ maxWord64 = 18446744073709551615
 
 nonce = [0// 1, bytes .size 32]
 
+metadata_hash = hash32
+
 transaction_witness_set = 
   { ? 0 : [* vkeywitness]      
   , ? 1 : [* multisig_script]  

eras/shelley/impl/testlib/Test/Cardano/Ledger/Shelley/CDDL.hs

@@ -237,7 +237,7 @@ relay =
     / arr [a multi_host_name]
 
 pool_metadata :: Rule
-pool_metadata = "pool_metadata" =:= arr [a url, a metadata_hash]
+pool_metadata = "pool_metadata" =:= arr [a url, a VBytes]
 
 url :: Rule
 url = "url" =:= VText `sized` (0 :: Word64, 64 :: Word64)