foreign keys are a thing

(and they can be useful, too!)

Also, documentation & deleting imports / extensions that aren't used.

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