Fix issue of multiple auth calls from WooCommerce

src/ZGoBackend.hs

@@ -643,13 +643,25 @@ 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
                          (object
                             [ "authorized" .= False
                             , "message" .=
-                          ("ZGo shop already linked to" <>
+                              ("ZGo shop already linked to " <>
                                fromMaybe "" (w_url c))
                             ])
           else do