haskell/yesod-auth-oauth2
1
0
Fork 0
mirror of https://github.com/freckle/yesod-auth-oauth2.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Restyled by stylish-haskell

Browse Source
This commit is contained in:
Restyled.io 2022-01-31 17:58:03 +00:00
parent 23b73d590d
commit dfded079c4
17 changed files with 73 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/Yesod/Auth/OAuth2.hs
View File

@ -28,21 +28,17 @@ module Yesod.Auth.OAuth2
, getUserResponseJSON
) where
import Control.Error.Util ( note )
import Control.Monad ( (<=<) )
import Data.Aeson ( FromJSON
, eitherDecode
)
import Data.ByteString.Lazy ( ByteString
, fromStrict
)
import Data.Text ( Text )
import Data.Text.Encoding ( encodeUtf8 )
import Network.HTTP.Conduit ( Manager )
import Network.OAuth.OAuth2.Compat
import Yesod.Auth
import Yesod.Auth.OAuth2.Dispatch
import Yesod.Core.Widget
import Control.Error.Util (note)
import Control.Monad ((<=<))
import Data.Aeson (FromJSON, eitherDecode)
import Data.ByteString.Lazy (ByteString, fromStrict)
import Data.Text (Text)
import Data.Text.Encoding (encodeUtf8)
import Network.HTTP.Conduit (Manager)
import Network.OAuth.OAuth2.Compat
import Yesod.Auth
import Yesod.Auth.OAuth2.Dispatch
import Yesod.Core.Widget
oauth2Url :: Text -> AuthRoute
oauth2Url name = PluginR name ["forward"]

4
src/Yesod/Auth/OAuth2/AzureAD.hs
View File

@ -11,8 +11,8 @@ module Yesod.Auth.OAuth2.AzureAD
, oauth2AzureADScoped
) where
import Prelude
import Yesod.Auth.OAuth2.Prelude
import Prelude
import Yesod.Auth.OAuth2.Prelude
newtype User = User Text

9
src/Yesod/Auth/OAuth2/BattleNet.hs
View File

@ -13,13 +13,10 @@ module Yesod.Auth.OAuth2.BattleNet
, oAuth2BattleNet
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
( pack
, toLower
)
import Yesod.Core.Widget
import qualified Data.Text as T (pack, toLower)
import Yesod.Core.Widget
newtype User = User Int

4
src/Yesod/Auth/OAuth2/Bitbucket.hs
View File

@ -11,9 +11,9 @@ module Yesod.Auth.OAuth2.Bitbucket
, oauth2BitbucketScoped
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import qualified Data.Text as T
newtype User = User Text

4
src/Yesod/Auth/OAuth2/ClassLink.hs
View File

@ -5,9 +5,9 @@ module Yesod.Auth.OAuth2.ClassLink
, oauth2ClassLinkScoped
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import qualified Data.Text as T
newtype User = User Int

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

@ -12,21 +12,20 @@ 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 Network.OAuth.OAuth2.TokenRequest
( Errors )
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 Network.OAuth.OAuth2.TokenRequest (Errors)
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'@
--

6
src/Yesod/Auth/OAuth2/EveOnline.hs
View File

@ -13,10 +13,10 @@ module Yesod.Auth.OAuth2.EveOnline
, WidgetType(..)
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import Yesod.Core.Widget
import qualified Data.Text as T
import Yesod.Core.Widget
newtype User = User Text

4
src/Yesod/Auth/OAuth2/GitHub.hs
View File

@ -11,9 +11,9 @@ module Yesod.Auth.OAuth2.GitHub
, oauth2GitHubScoped
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import qualified Data.Text as T
newtype User = User Int

4
src/Yesod/Auth/OAuth2/GitLab.hs
View File

@ -6,9 +6,9 @@ module Yesod.Auth.OAuth2.GitLab
, defaultScopes
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import qualified Data.Text as T
newtype User = User Int

6
src/Yesod/Auth/OAuth2/Google.hs
View File

@ -31,10 +31,8 @@ module Yesod.Auth.OAuth2.Google
, oauth2GoogleScopedWidget
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Core ( WidgetFor
, whamlet
)
import Yesod.Auth.OAuth2.Prelude
import Yesod.Core (WidgetFor, whamlet)
newtype User = User Text

12
src/Yesod/Auth/OAuth2/Nylas.hs
View File

@ -4,13 +4,13 @@ module Yesod.Auth.OAuth2.Nylas
( oauth2Nylas
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import Control.Monad ( unless )
import qualified Data.ByteString.Lazy.Char8 as BL8
import Network.HTTP.Client
import qualified Network.HTTP.Types as HT
import qualified Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
import Control.Monad (unless)
import qualified Data.ByteString.Lazy.Char8 as BL8
import Network.HTTP.Client
import qualified Network.HTTP.Types as HT
import qualified Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
newtype User = User Text

28
src/Yesod/Auth/OAuth2/Prelude.hs
View File

@ -56,20 +56,20 @@ module Yesod.Auth.OAuth2.Prelude
, authOAuth2Widget
) where
import Control.Exception.Safe
import Data.Aeson
import Data.ByteString ( ByteString )
import qualified Data.ByteString.Lazy as BL
import Data.Text ( Text )
import qualified Data.Text as T
import Data.Text.Encoding
import Network.HTTP.Conduit
import Network.OAuth.OAuth2.Compat
import URI.ByteString
import URI.ByteString.Extension
import Yesod.Auth
import Yesod.Auth.OAuth2
import qualified Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
import Control.Exception.Safe
import Data.Aeson
import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as BL
import Data.Text (Text)
import qualified Data.Text as T
import Data.Text.Encoding
import Network.HTTP.Conduit
import Network.OAuth.OAuth2.Compat
import URI.ByteString
import URI.ByteString.Extension
import Yesod.Auth
import Yesod.Auth.OAuth2
import qualified Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
-- | Retrieve a user's profile as JSON
--

2
src/Yesod/Auth/OAuth2/Salesforce.hs
View File

@ -13,7 +13,7 @@ module Yesod.Auth.OAuth2.Salesforce
, oauth2SalesforceSandboxScoped
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
newtype User = User Text

11
src/Yesod/Auth/OAuth2/Slack.hs
View File

@ -11,14 +11,11 @@ module Yesod.Auth.OAuth2.Slack
, oauth2SlackScoped
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import Network.HTTP.Client ( httpLbs
, parseUrlThrow
, responseBody
, setQueryString
)
import Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
import Network.HTTP.Client
(httpLbs, parseUrlThrow, responseBody, setQueryString)
import Yesod.Auth.OAuth2.Exception as YesodOAuth2Exception
data SlackScope
= SlackBasicScope

2
src/Yesod/Auth/OAuth2/Spotify.hs
View File

@ -7,7 +7,7 @@ module Yesod.Auth.OAuth2.Spotify
( oauth2Spotify
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
newtype User = User Text

4
src/Yesod/Auth/OAuth2/Upcase.hs
View File

@ -10,9 +10,9 @@ module Yesod.Auth.OAuth2.Upcase
( oauth2Upcase
) where
import Yesod.Auth.OAuth2.Prelude
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import qualified Data.Text as T
newtype User = User Int

4
src/Yesod/Auth/OAuth2/WordPressDotCom.hs
View File

@ -4,8 +4,8 @@ module Yesod.Auth.OAuth2.WordPressDotCom
( oauth2WordPressDotCom
) where
import qualified Data.Text as T
import Yesod.Auth.OAuth2.Prelude
import qualified Data.Text as T
import Yesod.Auth.OAuth2.Prelude
pluginName :: Text
pluginName = "WordPress.com"