module Model.Types.School where

import Import.NoModel
import Model.Types.TH.PathPiece

data SchoolFunction
  = SchoolAdmin
  | SchoolLecturer
  | SchoolEvaluation
  | SchoolExamOffice
  | SchoolAllocation
  deriving (Eq, Ord, Read, Show, Enum, Bounded, Generic, Typeable)
instance Universe SchoolFunction
instance Finite SchoolFunction
instance Hashable SchoolFunction
instance NFData SchoolFunction

nullaryPathPiece ''SchoolFunction $ camelToPathPiece' 1
pathPieceJSON ''SchoolFunction
pathPieceJSONKey ''SchoolFunction
derivePersistFieldPathPiece ''SchoolFunction
pathPieceBinary ''SchoolFunction
