src/server/Job/Kind.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE TemplateHaskell #-}

module Job.Kind
  ( Kind(..)
  ) where

import Database.Persist.TH

data Kind =
  MonthlyPayment
  | WeeklyReport
  deriving (Eq, Show, Read)

derivePersistField "Kind"