From 8fb5df5918fa76a6ae8ab3fb17f66b203c2a7c87 Mon Sep 17 00:00:00 2001
From: "Restyled.io" <commits@restyled.io>
Date: Wed, 1 Feb 2023 18:29:31 +0000
Subject: [PATCH] Restyled by stylish-haskell

---
 src/Yesod/Auth/OAuth2/Dispatch.hs      | 26 +++++++++++++-------------
 src/Yesod/Auth/OAuth2/DispatchError.hs | 22 ++++++++++------------
 2 files changed, 23 insertions(+), 25 deletions(-)

diff --git a/src/Yesod/Auth/OAuth2/Dispatch.hs b/src/Yesod/Auth/OAuth2/Dispatch.hs
index 1f9a5a6..34a55eb 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 UnliftIO.Exception
+import URI.ByteString.Extension
+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 fec08b9..434294b 100644
--- a/src/Yesod/Auth/OAuth2/DispatchError.hs
+++ b/src/Yesod/Auth/OAuth2/DispatchError.hs
@@ -14,18 +14,16 @@ module Yesod.Auth.OAuth2.DispatchError
   , onDispatchError
   ) where
 
-import           Control.Monad.Except
-import           Data.Text                      ( Text
-                                                , pack
-                                                )
-import           Network.OAuth.OAuth2.Compat    ( Errors )
-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 (Errors)
+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