haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-04-30 06:34:53 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

use alternative in oauth2RedirectUri

Browse Source
This commit is contained in:
William R. Arellano 2023-10-31 11:11:27 -05:00
parent 79a955edd0
commit 87dc101b47
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Yesod/Auth/OAuth2/Dispatch.hs
View File

@ -13,6 +13,7 @@ module Yesod.Auth.OAuth2.Dispatch
) where ) where
import Control.Monad (unless) import Control.Monad (unless)
import Control.Applicative ((<|>))
import Control.Monad.Except (MonadError (..)) import Control.Monad.Except (MonadError (..))
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
@ -109,7 +110,7 @@ withCallbackAndState name oauth2 csrf = do
callback <- maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri callback <- maybe (throwError $ InvalidCallbackUri uri) pure $ fromText uri
pure pure
oauth2 oauth2
{ oauth2RedirectUri = Just callback { oauth2RedirectUri = (oauth2RedirectUri oauth2) <|> Just callback
, oauth2AuthorizeEndpoint = , oauth2AuthorizeEndpoint =
oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)] oauth2AuthorizeEndpoint oauth2 `withQuery` [("state", encodeUtf8 csrf)]
} }