diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-08-02T10·16+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-08-02T10·16+0100 |
| commit | 699892883ceaffb64e0d9b9aaab67313a60a5428 (patch) | |
| tree | c3dd3e40d3a18de274f3b0a4654137ebc3102b75 /src/Types.hs | |
| parent | d5bc6f963d4c8cdb8990a9946d9a142a32e13d3c (diff) | |
Support deleting trips from the client
TL;DR: - Ensure Types.TripPK in Types.hs uses Calendar.Day for startDate - Prefer verbiage "GotCreateTrip" to "CreatedTrip" - Extend Utils.deleteWithCredentials to accept a body parameter - Support a delete button in the UI
Diffstat (limited to 'src/Types.hs')
| -rw-r--r-- | src/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Types.hs b/src/Types.hs index 11422f8db90b..54f3ec64ea0d 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -237,10 +237,10 @@ instance FromRow Trip where data TripPK = TripPK { tripPKUsername :: Username , tripPKDestination :: Destination - , tripPKStartDate :: Clock.UTCTime + , tripPKStartDate :: Calendar.Day } deriving (Eq, Show, Generic) -tripPKFields :: TripPK -> (Username, Destination, Clock.UTCTime) +tripPKFields :: TripPK -> (Username, Destination, Calendar.Day) tripPKFields (TripPK{..}) = (tripPKUsername, tripPKDestination, tripPKStartDate) |