haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
serversession-backend-persistent/serversession-backend-persistent.cabal
View File

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

3
serversession-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
View File

@ -12,7 +12,6 @@ module Web.ServerSession.Backend.Persistent.Internal.Impl
) where ) where
import Control.Monad (void) import Control.Monad (void)
import Data.Pool (Pool)
import Data.Time (UTCTime) import Data.Time (UTCTime)
import Data.Typeable (Typeable) import Data.Typeable (Typeable)
import Database.Persist (PersistEntity(..)) import Database.Persist (PersistEntity(..))
@ -68,7 +67,7 @@ fromPersistentSession PersistentSession {..} =
-- | SQL session storage backend using @persistent@. -- | SQL session storage backend using @persistent@.
newtype SqlStorage = newtype SqlStorage =
SqlStorage SqlStorage
{ connPool :: Pool P.SqlBackend { connPool :: P.ConnectionPool
-- ^ Pool of DB connections. You may use the same pool as -- ^ Pool of DB connections. You may use the same pool as
-- your application. -- your application.
} deriving (Typeable) } deriving (Typeable)