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