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

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