doctest-discover-configurator-0.1.0.6: src/Config.hs

{-# LANGUAGE OverloadedStrings #-}

module Config where

import qualified Data.Configurator as Cfg

data Config = Config {
    ignore :: Maybe [String],
    sourceFolders :: Maybe [String]
} deriving (Show)

config :: String -> IO Config
config file = do
  config' <- Cfg.load [Cfg.Optional file]
  ignore' <- Cfg.lookup config' "ignore"
  sourceFolders' <- Cfg.lookup config' "sourceFolders"
  return $ Config ignore' sourceFolders'