diff --git a/src/ZcashHaskell/Sapling.hs b/src/ZcashHaskell/Sapling.hs
index ac583cd..8207e75 100644
--- a/src/ZcashHaskell/Sapling.hs
+++ b/src/ZcashHaskell/Sapling.hs
@@ -57,6 +57,9 @@ instance FromJSON RawTxResponse where
       i <- obj .: "txid"
       o <- obj .:? "orchard"
       h <- obj .: "hex"
+      ht <- obj .: "height"
+      c <- obj .: "confirmations"
+      b <- obj .: "blocktime"
       case o of
         Nothing ->
           pure $
@@ -65,6 +68,9 @@ instance FromJSON RawTxResponse where
             (decodeHexText h)
             (getShieldedOutputs (decodeHexText h))
             []
+            ht
+            c
+            b
         Just o' -> do
           a <- o' .: "actions"
           pure $
@@ -73,3 +79,6 @@ instance FromJSON RawTxResponse where
               (decodeHexText h)
               (getShieldedOutputs (decodeHexText h))
               a
+              ht
+              c
+              b
diff --git a/src/ZcashHaskell/Types.hs b/src/ZcashHaskell/Types.hs
index 51fe2c0..08dec78 100644
--- a/src/ZcashHaskell/Types.hs
+++ b/src/ZcashHaskell/Types.hs
@@ -105,6 +105,9 @@ data RawTxResponse = RawTxResponse
   , rt_hex :: BS.ByteString
   , rt_shieldedOutputs :: [BS.ByteString]
   , rt_orchardActions :: [OrchardAction]
+  , rt_blockheight :: Integer
+  , rt_confirmations :: Integer
+  , rt_blocktime :: Integer
   } deriving (Prelude.Show, Eq)
 
 -- * Sapling