Fix call to payWooOrder
This commit is contained in:
parent
ac2ecd7368
commit
694b16bba5
1 changed files with 2 additions and 2 deletions
|
@ -1153,8 +1153,8 @@ scanPayments config pipe = do
|
||||||
payWooOrder
|
payWooOrder
|
||||||
(T.unpack wUrl)
|
(T.unpack wUrl)
|
||||||
(C.pack iNum)
|
(C.pack iNum)
|
||||||
(C.pack . show $ maybe "" show (q_id xO))
|
(C.pack $ maybe "" show (q_id xO))
|
||||||
(C.pack . show $ w_owner wt)
|
(C.pack . show $ w_token wt)
|
||||||
(C.pack . show $ qprice xO)
|
(C.pack . show $ qprice xO)
|
||||||
(C.pack . show $ qtotalZec xO)
|
(C.pack . show $ qtotalZec xO)
|
||||||
else error
|
else error
|
||||||
|
|
Loading…
Reference in a new issue