Swap Tuples in ToMetadata

Plutonomicon · Jun 24, 2022 · 0046dd8 · 0046dd8
1 parent 96924f0
commit 0046dd8
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/Metadata/ToMetadata.purs b/src/Metadata/ToMetadata.purs
@@ -16,13 +16,12 @@ import Data.Map (catMaybes, fromFoldable, toUnfoldable) as Map
 import Data.Maybe (Maybe(Just), fromJust)
 import Data.NonEmpty (NonEmpty)
 import Data.Profunctor.Strong ((***))
+import Data.Tuple (Tuple)
 import Data.Tuple.Nested (type (/\))
 import Partial.Unsafe (unsafePartial)
 import Types.ByteArray (ByteArray)
 import Types.Int (Int, fromBigInt) as Int
-import Types.TransactionMetadata
-  ( TransactionMetadatum(MetadataMap, MetadataList, Int, Bytes, Text)
-  )
+import Types.TransactionMetadata (TransactionMetadatum(MetadataMap, MetadataList, Int, Bytes, Text))
 
 --------------------------------------------------------------------------------
 -- ToMetadata
@@ -45,9 +44,9 @@ else instance (ToMetadata k, ToMetadata v) => ToMetadata (Map k v) where
       MetadataMap <<< Map.fromFoldable $
         map (toMetadata *** toMetadata) entries
 
-instance (Ord k, ToMetadata k) => ToMetadata (Array (k /\ AnyToMetadata)) where
+instance (Ord k, ToMetadata k) => ToMetadata (Array (Tuple k AnyToMetadata)) where
   toMetadata = toMetadata <<< Map.fromFoldable
-else instance (Ord k, ToMetadata k, ToMetadata v) => ToMetadata (Array (k /\ v)) where
+else instance (Ord k, ToMetadata k, ToMetadata v) => ToMetadata (Array (Tuple k v)) where
   toMetadata = toMetadata <<< Map.fromFoldable
 else instance ToMetadata a => ToMetadata (Array a) where
   toMetadata = MetadataList <<< map toMetadata