From b638b4bbce90c52d94dddbc6777283d06f945573 Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 21 Jun 2023 14:59:34 -0500
Subject: [PATCH] Add shop name to `invdata`

---
 src/ZGoBackend.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 9ef0d30..7468370 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -654,6 +654,7 @@ routes pipe config = do
           (object
              [ "reportType" .= (1 :: Integer)
              , "order" .= (Nothing :: Maybe ZGoOrder)
+             , "shop" .= (Nothing :: Maybe String)
              ])
       Just c -> do
         o <- liftAndCatchIO $ run $ findOwnerById $ xr_owner invReq
@@ -664,6 +665,7 @@ routes pipe config = do
               (object
                  [ "reportType" .= (2 :: Integer)
                  , "order" .= (Nothing :: Maybe ZGoOrder)
+                 , "shop" .= (Nothing :: Maybe String)
                  ])
           Just o' -> do
             res <-
@@ -682,6 +684,7 @@ routes pipe config = do
                       (object
                          [ "reportType" .= (2 :: Integer)
                          , "order" .= (Nothing :: Maybe ZGoOrder)
+                         , "shop" .= (Nothing :: Maybe String)
                          ])
                   Just xI -> do
                     if xi_type xI == "ACCREC"
@@ -705,6 +708,8 @@ routes pipe config = do
                                                         (7 :: Integer)
                                                       , "order" .=
                                                         (Nothing :: Maybe ZGoOrder)
+                                                      , "shop" .=
+                                                        (Nothing :: Maybe String)
                                                       ])
                                                Just cp -> do
                                                  let newOrder =
@@ -758,6 +763,7 @@ routes pipe config = do
                                                           , "order" .=
                                                             toJSON
                                                               (fO :: ZGoOrder)
+                                                          , "shop" .= oname o'
                                                           ])
                                            else do
                                              status noContent204
@@ -767,6 +773,8 @@ routes pipe config = do
                                                     (8 :: Integer)
                                                   , "order" .=
                                                     (Nothing :: Maybe ZGoOrder)
+                                                  , "shop" .=
+                                                    (Nothing :: Maybe String)
                                                   ])
                                     else do
                                       status noContent204
@@ -775,6 +783,7 @@ routes pipe config = do
                                            [ "reportType" .= (7 :: Integer)
                                            , "order" .=
                                              (Nothing :: Maybe ZGoOrder)
+                                           , "shop" .= (Nothing :: Maybe String)
                                            ])
                              else do
                                status noContent204
@@ -782,6 +791,7 @@ routes pipe config = do
                                  (object
                                     [ "reportType" .= (6 :: Integer)
                                     , "order" .= (Nothing :: Maybe ZGoOrder)
+                                    , "shop" .= (Nothing :: Maybe String)
                                     ])
                       else do
                         status noContent204
@@ -789,6 +799,7 @@ routes pipe config = do
                           (object
                              [ "reportType" .= (5 :: Integer)
                              , "order" .= (Nothing :: Maybe ZGoOrder)
+                             , "shop" .= (Nothing :: Maybe String)
                              ])
               else do
                 status noContent204
@@ -796,6 +807,7 @@ routes pipe config = do
                   (object
                      [ "reportType" .= (1 :: Integer)
                      , "order" .= (Nothing :: Maybe ZGoOrder)
+                     , "shop" .= (Nothing :: Maybe String)
                      ])
   -- Get the xeroaccount code
   get "/api/xeroaccount" $ do