Fix issue of multiple auth calls from WooCommerce

2022-12-02 14:43:52 -06:00 · 2022-12-02 14:43:52 -06:00 · be716378f0
commit be716378f0
parent 3683567b81
1 changed files with 20 additions and 8 deletions
--- a/src/ZGoBackend.hs
+++ b/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