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