common/src/Common/Model/Frequency.hs


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