From 694b16bba56779f0580e5230b280fe2655126660 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 6 Dec 2022 14:35:13 -0600
Subject: [PATCH] Fix call to payWooOrder

---
 src/ZGoBackend.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 0d9c01c..90fc0fd 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -1153,8 +1153,8 @@ scanPayments config pipe = do
                                payWooOrder
                                  (T.unpack wUrl)
                                  (C.pack iNum)
-                                 (C.pack . show $ maybe "" show (q_id xO))
-                                 (C.pack . show $ w_owner wt)
+                                 (C.pack $ maybe "" show (q_id xO))
+                                 (C.pack . show $ w_token wt)
                                  (C.pack . show $ qprice xO)
                                  (C.pack . show $ qtotalZec xO)
                              else error