src/ZcashHaskell/Orchard.hs

@@ -76,8 +76,12 @@ isValidUnifiedAddress str =
     makeUA x =
       UnifiedAddress
         whichNet
-        (raw_o x)
+        (if BS.length (raw_o x) == 43
-        (raw_s x)
+           then Just (raw_o x)
+           else Nothing)
+        (if BS.length (raw_s x) == 43
+           then Just (raw_s x)
+           else Nothing)
         (if not (BS.null (raw_t x))
            then Just $ TransparentAddress P2PKH whichNet (raw_t x)
            else if not (BS.null (raw_to x))
@@ -98,18 +102,21 @@ encodeUnifiedAddress ua = encodeBech32m (E.encodeUtf8 hr) b
         Nothing -> BS.empty
         Just t ->
           case ta_type t of
-            P2SH -> packReceiver 0x01 $ ta_bytes t
+            P2SH -> packReceiver 0x01 $ Just $ ta_bytes t
-            P2PKH -> packReceiver 0x00 $ ta_bytes t
+            P2PKH -> packReceiver 0x00 $ Just $ ta_bytes t
     sReceiver = packReceiver 0x02 $ s_rec ua
     oReceiver = packReceiver 0x03 $ o_rec ua
     padding = E.encodeUtf8 $ T.justifyLeft 16 '\NUL' hr
-    packReceiver :: Word8 -> BS.ByteString -> BS.ByteString
+    packReceiver :: Word8 -> Maybe BS.ByteString -> BS.ByteString
-    packReceiver typeCode receiver =
+    packReceiver typeCode receiver' =
-      if BS.length receiver > 1
+      case receiver' of
-        then BS.singleton typeCode `BS.append`
+        Just receiver ->
-             (BS.singleton . toEnum . BS.length) receiver `BS.append`
+          if BS.length receiver > 1
-             receiver
+            then BS.singleton typeCode `BS.append`
-        else BS.empty
+                 (BS.singleton . toEnum . BS.length) receiver `BS.append`
+                 receiver
+            else BS.empty
+        Nothing -> BS.empty
 
 -- | Attempts to decode the given bytestring into a Unified Full Viewing Key
 decodeUfvk :: BS.ByteString -> Maybe UnifiedFullViewingKey

src/ZcashHaskell/Types.hs

@@ -280,8 +280,8 @@ instance FromJSON ShieldedOutput where
 -- | Type to represent a Unified Address
 data UnifiedAddress = UnifiedAddress
   { ua_net :: !ZcashNet
-  , o_rec :: !OrchardReceiver
+  , o_rec :: !(Maybe OrchardReceiver)
-  , s_rec :: !SaplingReceiver
+  , s_rec :: !(Maybe SaplingReceiver)
   , t_rec :: !(Maybe TransparentAddress)
   } deriving (Prelude.Show, Eq, Read)