module Conferer.Test
( configWith
) where
import Conferer.Config
import qualified Conferer.Source.InMemory as InMemory
import Data.Text (Text)
import Data.Dynamic
configWith :: [(Key, Dynamic)] -> [(Key, Text)] -> IO Config
configWith :: [(Key, Dynamic)] -> [(Key, Text)] -> IO Config
configWith [(Key, Dynamic)]
defaults [(Key, Text)]
keyValues =
Config
emptyConfig
Config -> (Config -> Config) -> Config
forall a b. a -> (a -> b) -> b
& [(Key, Dynamic)] -> Config -> Config
addDefaults [(Key, Dynamic)]
defaults
Config -> (Config -> IO Config) -> IO Config
forall a b. a -> (a -> b) -> b
& SourceCreator -> Config -> IO Config
addSource ([(Key, Text)] -> SourceCreator
InMemory.fromConfig [(Key, Text)]
keyValues)