conferer-0.1.0.0: src/Conferer/Provider/Simple.hs

module Conferer.Provider.Simple where

import           Data.Map (Map)
import qualified Data.Map as Map
import           Data.Text (Text)

import           Conferer.Types

mkMapProvider' :: Map Key Text -> ProviderCreator
mkMapProvider' configMap _config =
  return $ Provider
    { getKeyInProvider =
      \k -> do
        return $ Map.lookup k configMap
    }

mkMapProvider :: [(Key, Text)] -> ProviderCreator
mkMapProvider = mkMapProvider' . Map.fromList