diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 5f261d3..c9b9a21 100644
--- a/src/ZGoBackend.hs
+++ b/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