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