Fix issue of multiple auth calls from WooCommerce

src/ZGoBackend.hs

@@ -643,6 +643,18 @@ routes pipe config = do
                         [ "authorized" .= True
                         , "message" .= ("Authorized!" :: String)
                         ])
+                 else do
+                   if (E.decodeUtf8With lenientDecode .
+                       B64.decodeLenient . C.pack . T.unpack)
+                        siteurl ==
+                      fromMaybe "" (w_url c)
+                     then do
+                       status ok200
+                       Web.Scotty.json
+                         (object
+                            [ "authorized" .= True
+                            , "message" .= ("Already authorized." :: String)
+                            ])
                      else do
                        status accepted202
                        Web.Scotty.json