Add more debugging to payment confirmation

src/ZGoBackend.hs

@@ -1448,6 +1448,7 @@ scanPayments config pipe = do
                 Right txs -> do
                   let r = mkRegex ".*ZGo Order::([0-9a-fA-F]{24}).*"
                   let k = filter (isRelevant r) txs
+                  print k
                   let j = map (getOrderId r) k
                   mapM_ (recordPayment p (c_dbName config) z) j
                 Left e -> print e