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