Enable new native transaction scanning
This commit is contained in:
parent
ec72015524
commit
5788a26880
2 changed files with 5 additions and 12 deletions
|
@ -23,7 +23,8 @@ main = do
|
|||
putStrLn "Connected to MongoDB!"
|
||||
checkZcashPrices pipe (c_dbName loadedConfig)
|
||||
scanZcash' loadedConfig pipe
|
||||
scanPayments loadedConfig pipe
|
||||
{-scanPayments loadedConfig pipe-}
|
||||
scanTxNative loadedConfig pipe
|
||||
checkPayments pipe (c_dbName loadedConfig)
|
||||
expireOwners pipe (c_dbName loadedConfig)
|
||||
updateLogins pipe loadedConfig
|
||||
|
|
|
@ -2024,10 +2024,6 @@ scanTxNative config pipe = do
|
|||
case xOrder of
|
||||
Nothing -> error "Failed to retrieve order from database"
|
||||
Just xO -> do
|
||||
print $ qtotalZec xO
|
||||
print $ zamount x
|
||||
print z
|
||||
print $ qaddress xO
|
||||
when
|
||||
(not (qpaid xO) &&
|
||||
qtotalZec xO == zamount x && z == qaddress xO) $ do
|
||||
|
@ -2093,11 +2089,7 @@ scanTxNative config pipe = do
|
|||
else error
|
||||
"Couldn't parse externalInvoice for WooCommerce"
|
||||
_ -> putStrLn "Not an integration order"
|
||||
else do
|
||||
print $
|
||||
"Regular order" ++
|
||||
T.unpack orderId ++ " " ++ show (zamount x)
|
||||
liftIO $
|
||||
else liftIO $
|
||||
access p master dbName $
|
||||
markOrderPaid (T.unpack orderId, zamount x)
|
||||
Left e -> print "Unable to parse order memo"
|
||||
|
|
Loading…
Reference in a new issue