1 files changed, 5 insertions, 2 deletions

diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs
index 8def5b7..290fa3a 100644
--- a/CosmicCalendar.hs
+++ b/CosmicCalendar.hs
@@ -93,8 +93,11 @@ yearStart (LocalTime d _) = LocalTime d' t'
 localTimeToYearElapsed :: LocalTime -> NominalDiffTime
 localTimeToYearElapsed t = t `diffLocalTime` yearStart t
 
-getLastCalendarEntry :: LocalTime -> Maybe CalendarEntry
-getLastCalendarEntry (localTimeToYearElapsed -> t) = snd <$> Map.lookupLE t theCalendar
+getPreviousCalendarEntry :: LocalTime -> Maybe CalendarEntry
+getPreviousCalendarEntry (localTimeToYearElapsed -> t) = snd <$> Map.lookupLT t theCalendar
+
+getCurrentCalendarEntry :: LocalTime -> Maybe CalendarEntry
+getCurrentCalendarEntry (localTimeToYearElapsed -> t) = snd <$> Map.lookupLE t theCalendar
 
 getNextCalendarEntry :: LocalTime -> Maybe CalendarEntry
 getNextCalendarEntry (localTimeToYearElapsed -> t) = snd <$> Map.lookupGT t theCalendar