From d462d61b32c2995d1c15b0e52a7ccb30df14a329 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 25 May 2015 18:54:20 -0300
Subject: [PATCH] Use ConnectionPool type synonym, same as Yesod's scaffold.

---
 .../serversession-backend-persistent.cabal                     | 1 -
 .../src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs  | 3 +--
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/serversession-backend-persistent/serversession-backend-persistent.cabal b/serversession-backend-persistent/serversession-backend-persistent.cabal
index f42a012..98e766c 100644
--- a/serversession-backend-persistent/serversession-backend-persistent.cabal
+++ b/serversession-backend-persistent/serversession-backend-persistent.cabal
@@ -24,7 +24,6 @@ library
     , path-pieces
     , persistent                == 2.1.*
     , persistent-template       == 2.1.*
-    , resource-pool
     , text
     , time
 
diff --git a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
index 3eaa9f1..5cff880 100644
--- a/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
+++ b/serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
@@ -12,7 +12,6 @@ module Web.ServerSession.Backend.Persistent.Internal.Impl
   ) where
 
 import Control.Monad (void)
-import Data.Pool (Pool)
 import Data.Time (UTCTime)
 import Data.Typeable (Typeable)
 import Database.Persist (PersistEntity(..))
@@ -68,7 +67,7 @@ fromPersistentSession PersistentSession {..} =
 -- | SQL session storage backend using @persistent@.
 newtype SqlStorage =
   SqlStorage
-    { connPool :: Pool P.SqlBackend
+    { connPool :: P.ConnectionPool
       -- ^ Pool of DB connections.  You may use the same pool as
       -- your application.
     } deriving (Typeable)