Restyled by brittany

example/Main.hs

@@ -23,7 +23,9 @@ 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.Text                      ( Text )

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
     }