blob: 2b747b7e9dbe87a255a648f0d5adf6d767cd9965 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
module Model.Frequency
( Frequency(..)
) where
import Web.Scotty
import Database.Persist.TH
data Frequency =
Punctual
| Monthly
deriving (Eq, Show, Read)
derivePersistField "Frequency"
instance Parsable Frequency where parseParam = readEither
|
