diff options
author | stuebinm | 2022-06-10 21:39:21 +0200 |
---|---|---|
committer | stuebinm | 2022-06-10 22:04:57 +0200 |
commit | 9e6186cadc60f6c39cf0a32ebf49d0be01848803 (patch) | |
tree | 4c3117614dea5820146ac404d64dc3989c45f054 /app | |
parent | b092808a65b16688546b4f4f021a84cc120f8a8a (diff) |
generate OpenAPI docs
lots of lenses in this stuff :(
Diffstat (limited to '')
-rw-r--r-- | app/Main.hs | 44 |
1 files changed, 22 insertions, 22 deletions
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 () |