Add stylish-haskell config

app/Main.hs

@@ -1,6 +1,6 @@
-{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DataKinds           #-}
 {-# LANGUAGE OverloadedRecordDot #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings   #-}
 
 module Main (main) where
 
@@ -11,18 +11,29 @@ import Data.Proxy (Proxy (..))
 import Data.Text (Text)
 import Network.HTTP.Media ((//), (/:))
 import Network.HTTP.Types (status200)
-import Servant (Accept (..), Get, Server, serve, MimeRender (..), (:<|>) (..), (:>), Raw, Capture, Tagged (..))
+import Servant
+    ( Accept (..)
+    , Capture
+    , Get
+    , MimeRender (..)
+    , Raw
+    , Server
+    , Tagged (..)
+    , serve
+    , (:<|>) (..)
+    , (:>)
+    )
 import System.FilePath ((</>))
-import Text.Blaze.Html5 ((!))
 import Text.Blaze.Html.Renderer.Utf8 (renderHtml)
+import Text.Blaze.Html5 ((!))
 import Text.Printf (printf)
 
 import qualified Data.Text as Text
 import qualified Database.PostgreSQL.Opium as Opium
+import Network.Wai (responseFile)
 import qualified Network.Wai.Handler.Warp as Warp
 import qualified Text.Blaze.Html5 as H
 import qualified Text.Blaze.Html5.Attributes as A
-import Network.Wai (responseFile)
 
 import Yore.DB (DayFile (..))
 import Yore.Time (addYears, getCurrentDay)
@@ -67,7 +78,7 @@ server connPool = rootR :<|> todayR :<|> apiTodayR
         res <- withResource connPool $ DB.getDayFileByIssue dateThen issue
         dayFile <- either throwIO pure res
         let fullPath = "download" </> dayFile.relative_path
-          
+
         respond $ responseFile status200 [("content-type", "application/pdf")] fullPath Nothing
 
 newtype RootModel = RootModel Text