diff options
Diffstat (limited to '')
-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 |