a couple more database schemas

might eventually be needed; until then they're just scaffolding so I
don't loose sight of things

1 files changed, 28 insertions, 5 deletions

diff --git a/lib/Persist.hs b/lib/Persist.hs
index 3115ce3..9486a1d 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -40,12 +40,12 @@ import           Data.Pool                   (Pool)
 import           Data.Time                   (NominalDiffTime,
                                               UTCTime (utctDay), addUTCTime,
                                               dayOfWeek, diffUTCTime,
-                                              getCurrentTime, nominalDay)
+                                              getCurrentTime, nominalDay, TimeOfDay)
 import           Database.Persist.Postgresql (SqlBackend)
 import           GHC.Generics                (Generic)
 import           Web.PathPieces              (PathPiece)
-
-
+import Data.Vector (Vector)
+import           Data.Time.Calendar             (Day, DayOfWeek (..))
 
 newtype Token = Token UUID
   deriving newtype
@@ -57,8 +57,12 @@ instance ToSchema Token where
 instance ToParamSchema Token where
   toParamSchema _ = toParamSchema (Proxy @String)
 
+data AmendmentStatus = Cancelled | Added
+  deriving (ToJSON, FromJSON, Generic, Show, Read, Eq)
+derivePersistField "AmendmentStatus"
 
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
+-- | tokens which have been issued
 RunningTrip sql=tt_tracker_token
   Id Token default=uuid_generate_v4()
   expires UTCTime
@@ -68,12 +72,31 @@ RunningTrip sql=tt_tracker_token
 
 TripPing json sql=tt_trip_ping
   token RunningTripId
-  latitude Double
-  longitude Double
+  lat Double
+  long Double
   delay Double
   timestamp UTCTime
   deriving Show Generic Eq
 
+Announcements sql=tt_announcements
+  trip TripID
+  message Text
+  day Text
+
+-- | this table works as calendar_dates.txt in GTFS
+ScheduleAmendment json sql=tt_schedule_amendement
+  trip TripID
+  day Text
+  status AmendmentStatus
+  -- only one special rule per TripID and Day (else incoherent)
+  TripAndDay trip day
+
+-- TODO: possible to have regular trips moved in time without changing TripID?
+ExtraordinaryTrip sql=tt_extra_trip
+  trip TripID
+  day Text
+  stops (Vector Text)
+  stopTimes (Vector TimeOfDay)
 |]
 
 instance ToSchema RunningTripId where