From 6e31d839635fa94c8ab67c3128460c4b68029908 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Fri, 8 Mar 2024 13:09:13 -0600
Subject: [PATCH] Update `UnifiedAddress` to use named types for receivers

---
 src/ZcashHaskell/Types.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/ZcashHaskell/Types.hs b/src/ZcashHaskell/Types.hs
index 4bd0cd9..931828e 100644
--- a/src/ZcashHaskell/Types.hs
+++ b/src/ZcashHaskell/Types.hs
@@ -279,19 +279,19 @@ instance FromJSON ShieldedOutput where
 -- * Orchard
 -- | Type to represent a Unified Address
 data UnifiedAddress = UnifiedAddress
-  { ua_net :: ZcashNet
-  , o_rec :: BS.ByteString
-  , s_rec :: BS.ByteString
-  , t_rec :: Maybe TransparentAddress
+  { ua_net :: !ZcashNet
+  , o_rec :: !OrchardReceiver
+  , s_rec :: !SaplingReceiver
+  , t_rec :: !(Maybe TransparentAddress)
   } deriving (Prelude.Show, Eq, Read)
 
 -- | Helper type for marshalling UAs 
 data RawUA = RawUA
-  { raw_net :: Word8
-  , raw_o :: BS.ByteString
-  , raw_s :: BS.ByteString
-  , raw_t :: BS.ByteString
-  , raw_to :: BS.ByteString
+  { raw_net :: !Word8
+  , raw_o :: !BS.ByteString
+  , raw_s :: !BS.ByteString
+  , raw_t :: !BS.ByteString
+  , raw_to :: !BS.ByteString
   } deriving stock (Eq, Prelude.Show, GHC.Generic)
     deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
     deriving anyclass (Data.Structured.Show)