Vergara_Tech
/
zcash-haskell
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 4 Wiki Activity

Merge pull request 'Update `UnifiedAddress` to use named types for receivers' (#24) from rav001 into dev040 

Reviewed-on: #24
This commit is contained in:
pitmutt 2024-03-08 19:12:19 +00:00 committed by Vergara Technologies LLC
parent db5a694e7d 6e31d83963
commit 5c4b715a24
Signed by: Vergara Technologies LLC
GPG Key ID: 99DB473BB4715618
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ZcashHaskell/Types.hs
View File

@ -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)