Improve debugging info

This commit is contained in:
Rene Vergara 2023-05-11 15:31:27 -05:00
parent feea097405
commit 8e05df0727
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2

View file

@ -376,7 +376,7 @@ zToZGoTx' config pipe (ZcashTx t a aZ bh bt c conf m) = do
if m_payment zM' if m_payment zM'
then upsertPayment pipe (c_dbName config) tx then upsertPayment pipe (c_dbName config) tx
else access pipe master (c_dbName config) $ upsertZGoTx "txs" tx else access pipe master (c_dbName config) $ upsertZGoTx "txs" tx
Left e -> error $ "Failed to parse ZGo memo: " ++ show e Left e -> print $ "Failed to parse ZGo memo: " ++ show e
-- |Type to model a price in the ZGo database -- |Type to model a price in the ZGo database
data ZGoPrice = data ZGoPrice =