Correct Xero payment confirmation

src/Xero.hs

@@ -463,5 +463,6 @@ payXeroInvoice pipe dbName inv address amt zec = do
             setRequestHost "api.xero.com" $
             setRequestMethod "PUT" defaultRequest
       res <- httpJSON req :: IO (Response Object)
+      print res
       return ()
     else error "Invalid parameters"

src/ZGoBackend.hs

@@ -747,7 +747,8 @@ routes pipe config = do
                                                              ]
                                                              False
                                                              (xi_number xI)
-                                                             (xi_shortcode xI)
+                                                             (xr_shortCode
+                                                                invReq)
                                                              (T.pack tk)
                                                      _ <-
                                                        liftAndCatchIO $