app/Main.hs

@@ -0,0 +1,6 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+main :: IO ()
+main = putStrLn "Zcash Utilities for Haskell"

librustzcash-wrapper/src/lib.rs

@@ -17,13 +17,13 @@ use haskell_ffi::{
 
 use zcash_address::{
     Network,
-    unified::{Address, Encoding},
+    unified::{Address, Encoding}
-    ZcashAddress
 };
 
 pub enum RW {}
 pub const RW: PhantomData<RW> = PhantomData;
 
+
 #[no_mangle]
 pub extern "C" fn rust_wrapper_f4jumble(
     input: *const u8,
@@ -43,11 +43,3 @@ pub extern "C" fn rust_wrapper_ua_decode(
     Address::decode(&input).is_ok()
     //marshall_to_haskell_var(&result, out, out_len, RW);
 }
-
-#[no_mangle]
-pub extern "C" fn rust_wrapper_shielded_decode(
-    input: *const u8,
-    input_len: usize) -> bool {
-    let input: String = marshall_from_haskell_var(input, input_len, RW);
-    ZcashAddress::try_from_encoded(&input).is_ok()
-}

src/C/Zcash.chs

@@ -37,9 +37,3 @@ newtype CodedString = CodedString BS.ByteString
      }
   -> `Bool'
 #}
-
-{# fun pure unsafe rust_wrapper_shielded_decode as rustWrapperIsShielded
-     { toBorshVar* `BS.ByteString'&
-     }
-  -> `Bool'
-#}

src/Zcash.hs

@@ -1,15 +1,9 @@
 module Zcash
   ( f4Jumble
   , isValidUnifiedAddress
-  , isValidShieldedAddress
   ) where
 
-import C.Zcash
+import C.Zcash (CodedString, rustWrapperF4Jumble, rustWrapperIsUA)
-  ( CodedString
-  , rustWrapperF4Jumble
-  , rustWrapperIsShielded
-  , rustWrapperIsUA
-  )
 import qualified Data.ByteString as BS
 import Foreign.Rust.Marshall.Fixed
 import Foreign.Rust.Marshall.Variable
@@ -19,6 +13,3 @@ f4Jumble = withPureBorshVarBuffer . rustWrapperF4Jumble
 
 isValidUnifiedAddress :: BS.ByteString -> Bool
 isValidUnifiedAddress = rustWrapperIsUA
-
-isValidShieldedAddress :: BS.ByteString -> Bool
-isValidShieldedAddress = rustWrapperIsShielded

zcash-haskell.cabal

@@ -36,7 +36,7 @@ library
       rustzcash_wrapper-uninstalled
   build-depends:
       base >=4.7 && <5
-    , borsh >=0.2
+    , borsh
     , bytestring
     , foreign-rust
     , text