Use stylish-haskell on yesod.hs

frameworks/Haskell/yesod/bench/src/yesod.hs

@@ -1,43 +1,43 @@
-{-# LANGUAGE EmptyDataDecls        #-}
-{-# LANGUAGE GADTs                 #-}
+{-# LANGUAGE EmptyDataDecls             #-}
+{-# LANGUAGE FlexibleContexts           #-}
+{-# LANGUAGE FlexibleInstances          #-}
+{-# LANGUAGE GADTs                      #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE OverloadedStrings     #-}
-{-# LANGUAGE QuasiQuotes           #-}
-{-# LANGUAGE RankNTypes            #-}
-{-# LANGUAGE RecordWildCards       #-}
-{-# LANGUAGE TemplateHaskell       #-}
-{-# LANGUAGE TypeFamilies          #-}
-{-# LANGUAGE ViewPatterns          #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE MultiParamTypeClasses      #-}
+{-# LANGUAGE OverloadedStrings          #-}
+{-# LANGUAGE QuasiQuotes                #-}
+{-# LANGUAGE RankNTypes                 #-}
+{-# LANGUAGE RecordWildCards            #-}
+{-# LANGUAGE TemplateHaskell            #-}
+{-# LANGUAGE TypeFamilies               #-}
+{-# LANGUAGE ViewPatterns               #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 module Main (main, resourcesApp, Widget, WorldId) where
 import           Blaze.ByteString.Builder
 import           Control.Concurrent           (runInUnboundThread)
-import           Control.Monad            (replicateM)
-import           Control.Monad.Logger     (runNoLoggingT)
-import           Control.Monad.Primitive  (PrimState)
-import           Control.Monad.Reader     (ReaderT)
+import           Control.Monad                (replicateM)
+import           Control.Monad.Logger         (runNoLoggingT)
+import           Control.Monad.Primitive      (PrimState)
+import           Control.Monad.Reader         (ReaderT)
 import           Control.Monad.Trans.Resource (InternalState)
-import           Data.Aeson               (encode)
-import qualified Data.ByteString.Lazy     as L
-import           Data.Conduit.Pool        (Pool, createPool)
-import           Data.Int                 (Int64)
-import           Data.Pool                (withResource)
-import           Data.Text                (Text)
-import           Database.MongoDB         (Field ((:=)), (=:))
-import qualified Database.MongoDB         as Mongo
-import qualified Database.Persist.MySQL   as My
-import           Network                  (PortID (PortNumber))
+import           Data.Aeson                   (encode)
+import qualified Data.ByteString.Lazy         as L
+import           Data.Conduit.Pool            (Pool, createPool)
+import           Data.Int                     (Int64)
+import           Data.IORef                   (newIORef)
+import           Data.Pool                    (withResource)
+import           Data.Text                    (Text)
+import           Database.MongoDB             (Field ((:=)), (=:))
+import qualified Database.MongoDB             as Mongo
+import qualified Database.Persist.MySQL       as My
+import           Network                      (PortID (PortNumber))
 import           Network.HTTP.Types
 import           Network.Wai
-import qualified Network.Wai.Handler.Warp as Warp
-import           System.Environment       (getArgs)
-import qualified System.Random.MWC        as R
-import           Yesod                    hiding (Field)
-import Data.IORef (newIORef)
-import System.IO.Unsafe (unsafePerformIO)
+import qualified Network.Wai.Handler.Warp     as Warp
+import           System.Environment           (getArgs)
+import           System.IO.Unsafe             (unsafePerformIO)
+import qualified System.Random.MWC            as R
+import           Yesod                        hiding (Field)
 
 mkPersist sqlSettings { mpsGeneric = True } [persistLowerCase|
 World sql=World