Add more debugging

2023-10-13 14:53:33 -05:00 · 2023-10-13 14:53:33 -05:00 · 4558dfb8da
commit 4558dfb8da
parent a3eb5d29ee
1 changed files with 7 additions and 3 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -2089,9 +2089,13 @@ scanTxNative config pipe = do
                                     else error
                                            "Couldn't parse externalInvoice for WooCommerce"
                             _ -> putStrLn "Not an integration order"
-                      else liftIO $
-                           access p master dbName $
-                           markOrderPaid (T.unpack orderId, zamount x)
+                      else do
+                        print $
+                          "Regular order" ++
+                          T.unpack orderId ++ " " ++ show (zamount x)
+                        liftIO $
+                          access p master dbName $
+                          markOrderPaid (T.unpack orderId, zamount x)
        Left e -> print "Unable to parse order memo"

 debug = flip trace