src/Model/Config.hs


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

module Model.Config
  ( Config(..)
  ) where

import Data.Text

import Model.URL

data Config = Config
  { url :: URL
  , mailTo :: [Text]
  , properties :: [Text]
  , waitInMinutes :: Int
  } deriving (Eq, Read, Show)