zcash-haskell/src/HaskellZcash/Sapling.hs

module HaskellZcash.Sapling where

import C.Zcash (rustWrapperIsShielded, rustWrapperSaplingVkDecode)
import qualified Data.ByteString as BS

-- | Check if given bytesting is a valid encoded shielded address
isValidShieldedAddress :: BS.ByteString -> Bool
isValidShieldedAddress = rustWrapperIsShielded

-- | Check if given bytestring is a valid Sapling viewing key
isValidSaplingViewingKey :: BS.ByteString -> Bool
isValidSaplingViewingKey = rustWrapperSaplingVkDecode