Fix call to payWooOrder

2022-12-06 14:35:13 -06:00 · 2022-12-06 14:35:13 -06:00 · 694b16bba5
parent ac2ecd7368
commit 694b16bba5
1 changed files with 2 additions and 2 deletions
--- 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