1 files changed, 3 insertions, 0 deletions

diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs
index bab94da..db29c02 100644
--- a/CosmicCalendar.hs
+++ b/CosmicCalendar.hs
@@ -123,6 +123,9 @@ type Calendar = Map NominalDiffTime CalendarEntry
 getNextCalendarEntry :: Calendar -> LocalTime -> Maybe CalendarEntry
 getNextCalendarEntry cal (localTimeToYearElapsed -> t) = snd <$> Map.lookupGT t cal
 
+buildCalendar :: [CalendarEntry] -> Map NominalDiffTime CalendarEntry
+buildCalendar ls = Map.fromList $ map (\x -> (calBeginTime x, x)) $ map unwrap ls
+
 unwrap :: CalendarEntry -> CalendarEntry
 unwrap x@CalendarEntry{..} = x { calDescription = unwrapText calDescription }
   where