From 9e6186cadc60f6c39cf0a32ebf49d0be01848803 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 10 Jun 2022 21:39:21 +0200
Subject: generate OpenAPI docs

lots of lenses in this stuff :(
---
 app/Main.hs | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index 5b4224a..0b3165e 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,34 +1,34 @@
-{-# LANGUAGE DataKinds #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE KindSignatures #-}
-{-# LANGUAGE StandaloneKindSignatures #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE StandaloneDeriving #-}
-{-# LANGUAGE TypeApplications #-}
-{-# LANGUAGE LambdaCase #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE DerivingStrategies #-}
+{-# LANGUAGE DataKinds                  #-}
+{-# LANGUAGE DeriveAnyClass             #-}
+{-# LANGUAGE DeriveGeneric              #-}
+{-# LANGUAGE DerivingStrategies         #-}
+{-# LANGUAGE FlexibleInstances          #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
--- | 
+{-# LANGUAGE KindSignatures             #-}
+{-# LANGUAGE LambdaCase                 #-}
+{-# LANGUAGE RecordWildCards            #-}
+{-# LANGUAGE StandaloneDeriving         #-}
+{-# LANGUAGE StandaloneKindSignatures   #-}
+{-# LANGUAGE TypeApplications           #-}
+{-# LANGUAGE TypeFamilies               #-}
+-- |
 
 module Main where
 
 
-import Data.Maybe (fromMaybe, fromJust)
-import Data.Time.Calendar.MonthDay (monthAndDayToDayOfYearValid)
-import qualified Data.Time.Calendar.OrdinalDate as Day
-import qualified Data.ByteString.Lazy as LB
-import qualified Data.Aeson as A
+import qualified Data.Aeson                           as A
+import qualified Data.ByteString.Lazy                 as LB
+import           Data.Default.Class                   (def)
+import           Data.Maybe                           (fromJust, fromMaybe)
+import           Data.Time.Calendar.MonthDay          (monthAndDayToDayOfYearValid)
+import qualified Data.Time.Calendar.OrdinalDate       as Day
+import           Network.Wai.Handler.Warp             (run)
 import           Network.Wai.Middleware.RequestLogger (OutputFormat (..),
                                                        RequestLoggerSettings (..),
                                                        mkRequestLogger)
-import Network.Wai.Handler.Warp (run)
-import Data.Default.Class (def)
 
-import GTFS
-import Server
+import           GTFS
+import           Server
 
 
 main :: IO ()
-- 
cgit v1.2.3