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 (Typeable, Eq, Ord, Enum, Show) 12 13 instance Exception Period where 14 toException = asyncExceptionToException 15 fromException = asyncExceptionFromException 16