diff options
author | stuebinm | 2022-06-16 01:06:04 +0200 |
---|---|---|
committer | stuebinm | 2022-06-16 01:06:04 +0200 |
commit | 8feb2556eda0604b6710309bf7ffddb72c22fc4a (patch) | |
tree | bc3dfc2256bfd7349d415caae8768e35ad4981d1 /lib/GTFS.hs | |
parent | 9e89c93b3b84b5c82c186cff62c33218a0a4d298 (diff) |
foreign keys are a thing
(and they can be useful, too!)
Also, documentation & deleting imports / extensions that aren't used.
Diffstat (limited to 'lib/GTFS.hs')
-rw-r--r-- | lib/GTFS.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/GTFS.hs b/lib/GTFS.hs index a77a487..be80745 100644 --- a/lib/GTFS.hs +++ b/lib/GTFS.hs @@ -5,7 +5,6 @@ {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StandaloneDeriving #-} @@ -15,7 +14,8 @@ {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE UndecidableInstances #-} - +-- | All kinds of stuff that has to deal with GTFS directly +-- (i.e. parsing, querying, Aeson instances, etc.) module GTFS where @@ -105,7 +105,7 @@ instance CSV.FromField Day where instance ToSchema Time where declareNamedSchema _ = do dings <- declareNamedSchema (Proxy @Int) - pure $ (set (S.schema . S.description) (Just "Zeit in Sekunden seit Tagesanfang") dings) + pure (set (S.schema . S.description) (Just "Zeit in Sekunden seit Tagesanfang") dings) data Depth = Shallow | Deep |