diff --git a/app/Tasks.hs b/app/Tasks.hs index 0f8a12d..62027da 100644 --- a/app/Tasks.hs +++ b/app/Tasks.hs @@ -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 diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs index 2a332d0..e3d0882 100644 --- a/src/ZGoBackend.hs +++ b/src/ZGoBackend.hs @@ -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,13 +2089,9 @@ 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 $ - access p master dbName $ - markOrderPaid (T.unpack orderId, zamount x) + else liftIO $ + access p master dbName $ + markOrderPaid (T.unpack orderId, zamount x) Left e -> print "Unable to parse order memo" debug = flip trace