module Model.Periodic
  ( Period(..)
  ) where

import Control.Exception (Exception(..), asyncExceptionToException, asyncExceptionFromException)

data Period
  = PeriodDaily
  | PeriodWeekly
  deriving (Eq, Ord, Show)

instance Exception Period where
  toException = asyncExceptionToException
  fromException = asyncExceptionFromException