aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorstuebinm2022-06-10 21:39:21 +0200
committerstuebinm2022-06-10 22:04:57 +0200
commit9e6186cadc60f6c39cf0a32ebf49d0be01848803 (patch)
tree4c3117614dea5820146ac404d64dc3989c45f054 /app
parentb092808a65b16688546b4f4f021a84cc120f8a8a (diff)
generate OpenAPI docs
lots of lenses in this stuff :(
Diffstat (limited to '')
-rw-r--r--app/Main.hs44
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 ()