Documentation

getInterval :: Calendar -> TimePeriod #

daysBetween :: UTCTime -> UTCTime -> Int #

goToNode :: TimePeriod -> Calendar -> Maybe CalendarZipper #

updateQ :: CalendarZipper -> Maybe CalendarZipper #

intervalFitsCalendar :: TimePeriod -> Calendar -> Bool #

checkQuantAvailability :: TimePeriod -> Int -> Set Text -> CalendarZipper -> Bool #

checkReservAvailability :: Reservation -> Set Text -> CalendarZipper -> Bool #

updateCalendar :: [TimePeriod] -> Set Text -> Calendar -> (Set Text -> Set Text -> Maybe (Set Text)) -> Maybe Calendar #

topMostNodes :: TimePeriod -> Calendar -> Maybe [CalendarZipper] #

leftMostTopNode :: TimePeriod -> Calendar -> Maybe CalendarZipper #

rightMostTopNode :: TimePeriod -> Calendar -> Maybe CalendarZipper #

commonParent :: CalendarZipper -> CalendarZipper -> Maybe CalendarZipper #

getZipInterval :: CalendarZipper -> TimePeriod #

getQMax :: CalendarZipper -> Maybe (Set Text) #