feature-flipper-postgres-0.1.0.0: test/Helpers/Config.hs

module Helpers.Config
    ( withConfig
    ) where

import           Control.Flipper.Adapters.Postgres
import qualified Control.Flipper.Adapters.Postgres.DBAccess as DBA
import qualified Helpers.Database                           as DB

withConfig :: (Config -> IO ()) -> IO ()
withConfig action = do
    cfg@(Config conn _) <- loadConfig
    DB.setupTestDatabase conn
    action cfg

loadConfig :: IO Config
loadConfig = do
    conn <- DB.makePool
    return Config
        { appDBConn = conn
        , appDB = DBA.db conn
        }