fix: sapling tree field names

This commit is contained in:
Rene Vergara 2024-11-06 14:02:24 -06:00
parent a13eab17d7
commit 4c3a188c32
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -621,9 +621,9 @@ data SaplingRawTree = SaplingRawTree
deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct SaplingRawTree deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct SaplingRawTree
data SaplingTree = SaplingTree data SaplingTree = SaplingTree
{ ot_left :: !(Maybe HexString) { st_left :: !(Maybe HexString)
, ot_right :: !(Maybe HexString) , st_right :: !(Maybe HexString)
, ot_parents :: ![Maybe HexString] , st_parents :: ![Maybe HexString]
} deriving (Eq, Prelude.Show, Read) } deriving (Eq, Prelude.Show, Read)
data SaplingFrontier = SaplingFrontier data SaplingFrontier = SaplingFrontier