diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs index 5e008d0..124da86 100644 --- a/src/Yesod/Auth/OAuth2/Dispatch.hs +++ b/src/Yesod/Auth/OAuth2/Dispatch.hs @@ -12,19 +12,19 @@ module Yesod.Auth.OAuth2.Dispatch , dispatchAuthRequest ) where -import Control.Monad.Except -import Data.Text (Text) -import qualified Data.Text as T -import Data.Text.Encoding (encodeUtf8) -import Network.HTTP.Conduit (Manager) -import Network.OAuth.OAuth2.Compat -import URI.ByteString.Extension -import UnliftIO.Exception -import Yesod.Auth hiding (ServerError) -import Yesod.Auth.OAuth2.DispatchError -import Yesod.Auth.OAuth2.ErrorResponse -import Yesod.Auth.OAuth2.Random -import Yesod.Core hiding (ErrorResponse) +import Control.Monad.Except +import Data.Text ( Text ) +import qualified Data.Text as T +import Data.Text.Encoding ( encodeUtf8 ) +import Network.HTTP.Conduit ( Manager ) +import Network.OAuth.OAuth2.Compat +import URI.ByteString.Extension +import UnliftIO.Exception +import Yesod.Auth hiding ( ServerError ) +import Yesod.Auth.OAuth2.DispatchError +import Yesod.Auth.OAuth2.ErrorResponse +import Yesod.Auth.OAuth2.Random +import Yesod.Core hiding ( ErrorResponse ) -- | How to fetch an @'OAuth2Token'@ -- diff --git a/src/Yesod/Auth/OAuth2/DispatchError.hs b/src/Yesod/Auth/OAuth2/DispatchError.hs index 41930fc..b21bd0a 100644 --- a/src/Yesod/Auth/OAuth2/DispatchError.hs +++ b/src/Yesod/Auth/OAuth2/DispatchError.hs @@ -14,16 +14,18 @@ module Yesod.Auth.OAuth2.DispatchError , onDispatchError ) where -import Control.Monad.Except -import Data.Text (Text, pack) -import Network.OAuth.OAuth2.Compat (Error) -import UnliftIO.Except () -import UnliftIO.Exception -import Yesod.Auth hiding (ServerError) -import Yesod.Auth.OAuth2.ErrorResponse -import Yesod.Auth.OAuth2.Exception -import Yesod.Auth.OAuth2.Random -import Yesod.Core hiding (ErrorResponse) +import Control.Monad.Except +import Data.Text ( Text + , pack + ) +import Network.OAuth.OAuth2.Compat ( Error ) +import UnliftIO.Except ( ) +import UnliftIO.Exception +import Yesod.Auth hiding ( ServerError ) +import Yesod.Auth.OAuth2.ErrorResponse +import Yesod.Auth.OAuth2.Exception +import Yesod.Auth.OAuth2.Random +import Yesod.Core hiding ( ErrorResponse ) data DispatchError = MissingParameter Text