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

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,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"