From ac0e74c8188fc89d8bb4e45127609513338d34d7 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Thu, 22 Jun 2023 16:51:58 -0500
Subject: [PATCH] Correct `invdata` check of correct creation

---
 src/ZGoBackend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index bb1f5ea..62d04df 100644
--- 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