  , eventsMonth
  , eventExpectedDelivery
  , eventEstimatedOvulation
  ) where

import           Data.Time.Calendar (Day, addDays)

import           ICalendar          (Event, vEvent)

standardDuration :: Num a => a