From 0f0f9520b1b15db3333accc1b5024d0910b3bcec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org> Date: Mon, 6 Apr 2020 16:35:22 +0200 Subject: [PATCH] [DB] gargPool --- src/Gargantext/API/Settings.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Gargantext/API/Settings.hs b/src/Gargantext/API/Settings.hs index 3dae840e..0a9dbb1f 100644 --- a/src/Gargantext/API/Settings.hs +++ b/src/Gargantext/API/Settings.hs @@ -35,7 +35,7 @@ import System.Environment (lookupEnv) import System.IO (FilePath, hClose) import System.IO.Temp (withTempFile) import System.FileLock (tryLockFile, unlockFile, SharedExclusive(Exclusive)) -import Database.PostgreSQL.Simple (Connection, connect) +import Database.PostgreSQL.Simple (Connection, connect, close) import Network.HTTP.Client (Manager) import Network.HTTP.Client.TLS (newTlsManager) @@ -269,6 +269,9 @@ newEnv port file = do , _env_self_url = self_url } +gargPool :: IO (Pool a) +gargPool = createPool connect close 1 (60*60) 8 + data DevEnv = DevEnv { _dev_env_conn :: !Connection , _dev_env_repo :: !RepoEnv -- 2.21.0