diff --git a/src/ZcashHaskell/Types.hs b/src/ZcashHaskell/Types.hs
index 0226ea1..ada4a58 100644
--- a/src/ZcashHaskell/Types.hs
+++ b/src/ZcashHaskell/Types.hs
@@ -621,9 +621,9 @@ data SaplingRawTree = SaplingRawTree
     deriving (BorshSize, ToBorsh, FromBorsh) via AsStruct SaplingRawTree
 
 data SaplingTree = SaplingTree
-  { ot_left :: !(Maybe HexString)
-  , ot_right :: !(Maybe HexString)
-  , ot_parents :: ![Maybe HexString]
+  { st_left :: !(Maybe HexString)
+  , st_right :: !(Maybe HexString)
+  , st_parents :: ![Maybe HexString]
   } deriving (Eq, Prelude.Show, Read)
 
 data SaplingFrontier = SaplingFrontier