blob: 085163dc7ef74b13810315eaacd8f095d7b24150 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE DeriveGeneric #-}
module Common.Model.Frequency
( Frequency(..)
) where
import Data.Aeson (FromJSON, ToJSON)
import GHC.Generics (Generic)
data Frequency =
Punctual
| Monthly
deriving (Eq, Read, Show, Generic)
instance FromJSON Frequency
instance ToJSON Frequency
|