diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 112ce2a..448fff5 100644 --- 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