Update source path

src/ZcashHaskell/Orchard.hs

@@ -1,4 +1,4 @@
-module HaskellZcash.Orchard where
+module ZcashHaskell.Orchard where
 
 import C.Zcash
   ( rustWrapperIsUA
@@ -7,7 +7,7 @@ import C.Zcash
   )
 import qualified Data.ByteString as BS
 import Foreign.Rust.Marshall.Variable
-import HaskellZcash.Types
+import ZcashHaskell.Types
 
 -- | Check if given bytestring is a valid encoded unified address
 isValidUnifiedAddress :: BS.ByteString -> Bool

src/ZcashHaskell/Sapling.hs

@@ -1,6 +1,10 @@
-module HaskellZcash.Sapling where
+module ZcashHaskell.Sapling where
 
-import C.Zcash (rustWrapperIsShielded, rustWrapperSaplingVkDecode)
+import C.Zcash
+  ( rustWrapperIsShielded
+  , rustWrapperSaplingCheck
+  , rustWrapperSaplingVkDecode
+  )
 import qualified Data.ByteString as BS
 
 -- | Check if given bytesting is a valid encoded shielded address
@@ -10,3 +14,7 @@ isValidShieldedAddress = rustWrapperIsShielded
 -- | Check if given bytestring is a valid Sapling viewing key
 isValidSaplingViewingKey :: BS.ByteString -> Bool
 isValidSaplingViewingKey = rustWrapperSaplingVkDecode
+
+-- | Check if the given bytestring for the Sapling viewing key matches the second bytestring for the address
+matchSaplingAddress :: BS.ByteString -> BS.ByteString -> Bool
+matchSaplingAddress = rustWrapperSaplingCheck

src/ZcashHaskell/Types.hs

@@ -5,7 +5,7 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE UndecidableInstances #-}
 
-module HaskellZcash.Types where
+module ZcashHaskell.Types where
 
 import qualified Data.ByteString as BS
 import Codec.Borsh

src/ZcashHaskell/Utils.hs

@@ -1,4 +1,4 @@
-module HaskellZcash.Utils where
+module ZcashHaskell.Utils where
 
 import C.Zcash
   ( rustWrapperBech32Decode
@@ -8,7 +8,7 @@ import C.Zcash
 
 import qualified Data.ByteString as BS
 import Foreign.Rust.Marshall.Variable
-import HaskellZcash.Types
+import ZcashHaskell.Types
 
 -- | Helper function to turn a hex-encoded strings to bytestring
 decodeHexText :: String -> BS.ByteString