diff --git a/src/ZcashHaskell/Types.hs b/src/ZcashHaskell/Types.hs
index f0cbcdb..7650dbb 100644
--- a/src/ZcashHaskell/Types.hs
+++ b/src/ZcashHaskell/Types.hs
@@ -215,7 +215,7 @@ data UnifiedAddress = UnifiedAddress
   , o_rec :: BS.ByteString
   , s_rec :: BS.ByteString
   , t_rec :: Maybe TransparentAddress
-  } deriving (Prelude.Show, Eq)
+  } deriving (Prelude.Show, Eq, Read)
 
 -- | Helper type for marshalling UAs 
 data RawUA = RawUA