mkComboState :: C.Config -> IO ComboState
mkComboState conf = do

    let cfg = C.subconfig "postgresql-simple" conf
    connstr <- liftIO $ getConnectionString cfg
    ghPool <- liftIO $ GH.withPostgresqlPool (B.unpack connstr) 3 return

    return $ ComboState ghPool


-------------------------------------------------------------------------------
-- | Perform groundhog op within Combo.
mkComboState :: C.Config -> IO ComboState
mkComboState conf = do

    let cfg = C.subconfig "postgresql-simple" conf
    connstr <- liftIO $ getConnectionString cfg
    ghPool <- liftIO $ GH.withPostgresqlPool (B.unpack connstr) 3 return

    return $ ComboState ghPool


-------------------------------------------------------------------------------
-- | Perform groundhog op within Combo.
mkComboState conf = do

    let cfg = C.subconfig "postgresql-simple" conf
    connstr <- liftIO $ getConnectionString cfg
    ghPool <- liftIO $ GH.withPostgresqlPool (B.unpack connstr) 3 return

    return $ ComboState ghPool


-------------------------------------------------------------------------------
-- | Perform groundhog op within Combo.