📦 sleepyfran / duets

1
2
3
4
5
6
7
8
9
10
11module Duets.Entities.CalendarEvent

/// Returns the date and day moment of the event
let date eventType =
    let date, dayMoment =
        match eventType with
        | CalendarEventType.Flight flight -> flight.Date, flight.DayMoment
        | CalendarEventType.Concert concert -> concert.Date, concert.DayMoment

    Calendar.Transform.resetDayMoment date, dayMoment