Replace deprecated Connection type.

This commit is contained in:
Mikkel Christiansen 2015-08-26 15:26:35 +02:00
parent 04cb3730a0
commit d556fc8844

View File

@ -81,7 +81,7 @@ newtype DBRunner site = DBRunner
--
-- Since 1.2.0
defaultGetDBRunner :: YesodPersistBackend site ~ SQL.SqlBackend
=> (site -> Pool SQL.Connection)
=> (site -> Pool SQL.SqlBackend)
-> HandlerT site IO (DBRunner site, HandlerT site IO ())
defaultGetDBRunner getPool = do
pool <- fmap getPool getYesod