Fix problem with payment confirmations

src/ZGoBackend.hs

@@ -1466,9 +1466,7 @@ scanPayments config pipe = do
                 Nothing -> error "Failed to retrieve order from database"
                 Just xO ->
                   when
-                    (not (qpaid xO) &&
-                     qexternalInvoice xO /= "" &&
-                     qtotalZec xO == snd x && z == qaddress xO) $ do
+                    (not (qpaid xO) && qtotalZec xO == snd x && z == qaddress xO) $ do
                     let sReg = mkRegex "(.*)-([a-fA-f0-9]{24})"
                     let sResult = matchAllText sReg (T.unpack $ qsession xO)
                     if not (null sResult)
@@ -1529,7 +1527,7 @@ scanPayments config pipe = do
                                      else error
                                             "Couldn't parse externalInvoice for WooCommerce"
                              _ -> putStrLn "Not an integration order"
-                      else putStrLn "Not an integration order"
+                      else liftIO $ access p master dbName $ markOrderPaid x
 
 -- | RPC methods
 -- | List addresses with viewing keys loaded