Functions to create and manage Orchard commitment trees #99
1 changed files with 1 additions and 1 deletions
|
@ -723,7 +723,7 @@ instance FromJSON OrchardAction where
|
||||||
pure $ OrchardAction n r c ephKey encText outText cval a
|
pure $ OrchardAction n r c ephKey encText outText cval a
|
||||||
|
|
||||||
data MerklePath = MerklePath
|
data MerklePath = MerklePath
|
||||||
{ mp_position :: !Int64
|
{ mp_position :: !Int32
|
||||||
, mp_path :: ![HexString]
|
, mp_path :: ![HexString]
|
||||||
} deriving stock (Eq, Prelude.Show, GHC.Generic)
|
} deriving stock (Eq, Prelude.Show, GHC.Generic)
|
||||||
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
|
deriving anyclass (SOP.Generic, SOP.HasDatatypeInfo)
|
||||||
|
|
Loading…
Reference in a new issue