diff --git a/example/Main.hs b/example/Main.hs index 3dc68c4..9d48640 100644 --- a/example/Main.hs +++ b/example/Main.hs @@ -83,6 +83,8 @@ instance YesodAuth App where instance RenderMessage App FormMessage where renderMessage _ _ = defaultFormMessage +-- brittany-disable-next-binding + getRootR :: Handler Html getRootR = do sess <- getSession @@ -144,7 +146,7 @@ mkFoundation = do , loadPlugin oauth2Upcase "UPCASE" ] - return App{..} + return App {..} where loadPlugin f prefix = do clientId <- getEnv $ prefix <> "_CLIENT_ID" diff --git a/src/Yesod/Auth/OAuth2/Prelude.hs b/src/Yesod/Auth/OAuth2/Prelude.hs index 2054c37..537dd67 100644 --- a/src/Yesod/Auth/OAuth2/Prelude.hs +++ b/src/Yesod/Auth/OAuth2/Prelude.hs @@ -54,7 +54,8 @@ module Yesod.Auth.OAuth2.Prelude -- * Temporary, until I finish re-structuring modules , authOAuth2 , authOAuth2Widget - ) where + ) +where import Control.Exception.Safe import Data.Aeson