Attempt to fix bundling issues due to the use of infix tuple type con…

…structor
Plutonomicon · Jan 19, 2023 · a34c008 · a34c008
1 parent 150e3ef
commit a34c008
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Internal/Plutip/UtxoDistribution.purs b/src/Internal/Plutip/UtxoDistribution.purs
@@ -56,6 +56,7 @@ import Data.Map as Map
 import Data.Maybe (Maybe(Nothing, Just))
 import Data.Newtype (unwrap)
 import Data.Traversable (traverse)
+import Data.Tuple (Tuple)
 import Data.Tuple.Nested (type (/\), (/\))
 import Effect.Class (liftEffect)
 import Effect.Ref as Ref
@@ -135,7 +136,8 @@ instance
   ( UtxoDistribution headSpec headWallets
   , UtxoDistribution restSpec restWallets
   ) =>
-  UtxoDistribution (headSpec /\ restSpec) (headWallets /\ restWallets) where
+  UtxoDistribution (Tuple headSpec restSpec)
+    (Tuple headWallets restWallets) where
   encodeDistribution (distr /\ rest) =
     encodeDistribution distr <> encodeDistribution rest
   decodeWallets d p = decodeWalletsDefault d p