{-# LANGUAGE OverloadedStrings #-}

module Conf
  ( getConf
  , Conf(..)
  ) where

import Data.Text (Text)
import qualified Data.ConfigManager as Conf

import Daemon.Frequency (Frequency)

data Conf = Conf
  { port :: Int
  , git :: String
  , generateResumes :: Frequency
  } deriving (Read, Eq, Show)

getConf :: FilePath -> IO (Either Text Conf)
getConf path =
  (flip fmap) (Conf.readConfig path) (\configOrError -> do
    conf <- configOrError
    Conf <$>
      Conf.lookup "port" conf <*>
      Conf.lookup "git" conf <*>
      Conf.lookup "generateResumes" conf
  )