Browse files

Merge branch 'MonadControlIO'

  • Loading branch information...
2 parents b832948 + 6d2a827 commit b22be04b6685d574eb31e464292462c56df5220d @norm2782 committed Oct 28, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/Snap/Snaplet/Hdbc.hs
View
3 src/Snap/Snaplet/Hdbc.hs
@@ -89,6 +89,9 @@ type Row = Map String SqlValue
class (IConnection c, MonadCatchIO m) => HasHdbc m c | m -> c where
getPool :: m (Pool c)
+instance MonadControlIO (Handler b v) where
+ liftControlIO f = liftIO (f return)
+
data HdbcSnaplet c = IConnection c => HdbcSnaplet {
hdbcPool :: Pool c }

0 comments on commit b22be04

Please sign in to comment.