Restyled by brittany

example/Main.hs

@@ -23,16 +23,18 @@ module Main where
 
 import           Data.Aeson
 import           Data.Aeson.Encode.Pretty
-import Data.ByteString.Lazy (fromStrict, toStrict)
+import           Data.ByteString.Lazy           ( fromStrict
+                                                , toStrict
+                                                )
 import qualified Data.Map                      as M
-import Data.Maybe (fromJust)
+import           Data.Maybe                     ( fromJust )
-import Data.Text (Text)
+import           Data.Text                      ( Text )
 import qualified Data.Text                     as T
-import Data.Text.Encoding (decodeUtf8)
+import           Data.Text.Encoding             ( decodeUtf8 )
 import           LoadEnv
 import           Network.HTTP.Conduit
-import Network.Wai.Handler.Warp (runEnv)
+import           Network.Wai.Handler.Warp       ( runEnv )
-import System.Environment (getEnv)
+import           System.Environment             ( getEnv )
 import           Yesod
 import           Yesod.Auth
 import           Yesod.Auth.OAuth2.AzureAD

src/Yesod/Auth/OAuth2/Twitch.hs

@@ -50,7 +50,9 @@ oauth2TwitchScoped scopes clientId clientSecret =
                                   `withQuery` [scopeParam " " scopes]
     , oauth2TokenEndpoint     = "https://id.twitch.tv/oauth2/token"
                                   `withQuery` [ ("client_id", T.encodeUtf8 clientId)
-                                              , ("client_secret", T.encodeUtf8 clientSecret)
+                                              , ( "client_secret"
+                                                , T.encodeUtf8 clientSecret
+                                                )
                                               ]
     , oauth2RedirectUri       = Nothing
     }