Unified Address support #8
1 changed files with 7 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue