From feea097405be01ee08000375e80f04fdd8588595 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 11 May 2023 15:25:38 -0500
Subject: [PATCH] Add debugging for memo parsing

---
 src/ZGoBackend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 244eed1..27b0783 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -376,7 +376,7 @@ zToZGoTx' config pipe (ZcashTx t a aZ bh bt c conf m) = do
         if m_payment zM'
           then upsertPayment pipe (c_dbName config) tx
           else access pipe master (c_dbName config) $ upsertZGoTx "txs" tx
-      Left e -> error "Failed to parse ZGo memo"
+      Left e -> error $ "Failed to parse ZGo memo: " ++ show e
 
 -- |Type to model a price in the ZGo database
 data ZGoPrice =