Use ConnectionPool type synonym, same as Yesod's scaffold.

This commit is contained in:
Felipe Lessa 2015-05-25 18:54:20 -03:00
parent fe0e29e06e
commit d462d61b32
2 changed files with 1 additions and 3 deletions

View File

@ -24,7 +24,6 @@ library
, path-pieces
, persistent == 2.1.*
, persistent-template == 2.1.*
, resource-pool
, text
, time

View File

@ -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)