1 module Model.Periodic
    2   ( Period(..)
    3   ) where
    4 
    5 import Control.Exception (Exception(..), asyncExceptionToException, asyncExceptionFromException)
    6 
    7 data Period
    8   = PeriodDaily
    9   | PeriodWeekly
   10   deriving (Eq, Ord, Show)
   11 
   12 instance Exception Period where
   13   toException = asyncExceptionToException
   14   fromException = asyncExceptionFromException
   15