Add debugging to order payment

src/ZGoBackend.hs

@@ -1460,6 +1460,7 @@ scanPayments config pipe = do
             recordPayment ::
                  Pipe -> T.Text -> T.Text -> (String, Double) -> IO ()
             recordPayment p dbName z x = do
+              print x
               o <- access p master dbName $ findOrderById (fst x)
               let xOrder = o >>= (cast' . Doc)
               case xOrder of