module Utils.Schedule.Types.ScheduleView
  ( ScheduleView(..)
  ) where

import Import.NoModel

import Model.Types.TH.PathPiece


data ScheduleView = ScheduleViewWeek
  deriving (Eq, Ord, Enum, Show, Read, Generic, Typeable, NFData)

instance Bounded ScheduleView where
  minBound = maxBound
  maxBound = ScheduleViewWeek
instance Finite ScheduleView
instance Universe ScheduleView

nullaryPathPiece ''ScheduleView $ camelToPathPiece' 2
pathPieceJSON ''ScheduleView
pathPieceJSONKey ''ScheduleView
derivePersistFieldPathPiece ''ScheduleView
