Continue debugging

2023-10-13 14:59:14 -05:00 · 2023-10-13 14:59:14 -05:00 · 19b352c381
commit 19b352c381
parent 4558dfb8da
1 changed files with 5 additions and 1 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -2023,7 +2023,11 @@ scanTxNative config pipe = do
              let xOrder = o >>= (cast' . Doc)
              case xOrder of
                Nothing -> error "Failed to retrieve order from database"
-                Just xO ->
+                Just xO -> do
+                  print $ qtotalZec xO
+                  print $ zamount x
+                  print z
+                  print $ qaddress xO
                  when
                    (not (qpaid xO) &&
                     qtotalZec xO == zamount x && z == qaddress xO) $ do