Correct invdata check of correct creation

2023-06-22 16:51:58 -05:00 · 2023-06-22 16:51:58 -05:00 · ac0e74c818
commit ac0e74c818
parent b49a996bf5
1 changed files with 1 additions and 1 deletions
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@ -762,7 +762,7 @@ routes pipe config = do
                                                       findXeroOrder
                                                         (oaddress o')
                                                         (xi_number xI)
-                                                         (xi_shortcode xI)
+                                                         (xr_shortCode invReq)
                                                     case cast' . Doc =<<
                                                          finalOrder of
                                                       Nothing -> do