-------------------------------------------------------------------------------
-- | Configure ComboState from given Environment.
--
-- Example: @devel@ if you want to load a 'devel.conf'
mkComboStateEnv :: String -> IO ComboState
mkComboStateEnv env = do
    conf <- C.load [C.Required (env <> ".cfg")]
    mkComboState conf


-------------------------------------------------------------------------------
-- | Configure ComboState from given 'Config'; helpful for loading as
-- part of the Snap app. It will look for a 'postgresql-simple'
-- portion within the 'Config' given.
mkComboStateEnv :: String -> IO ComboState
mkComboStateEnv env = do
    conf <- C.load [C.Required (env <> ".cfg")]
    mkComboState conf


-------------------------------------------------------------------------------
-- | Configure ComboState from given 'Config'; helpful for loading as
-- part of the Snap app. It will look for a 'postgresql-simple'
-- portion within the 'Config' given.
mkComboStateEnv env = do
    conf <- C.load [C.Required (env <> ".cfg")]
    mkComboState conf


-------------------------------------------------------------------------------
-- | Configure ComboState from given 'Config'; helpful for loading as
-- part of the Snap app. It will look for a 'postgresql-simple'
-- portion within the 'Config' given.