Skip to content
This repository
Browse code

Merge branch 'MonadControlIO'

  • Loading branch information...
commit b22be04b6685d574eb31e464292462c56df5220d 2 parents b832948 + 6d2a827
Jurriën Stutterheim authored

Showing 1 changed file with 3 additions and 0 deletions. Show diff stats Hide diff stats

  1. +3 0  src/Snap/Snaplet/Hdbc.hs
3  src/Snap/Snaplet/Hdbc.hs
@@ -89,6 +89,9 @@ type Row = Map String SqlValue
89 89 class (IConnection c, MonadCatchIO m) => HasHdbc m c | m -> c where
90 90 getPool :: m (Pool c)
91 91
  92 +instance MonadControlIO (Handler b v) where
  93 + liftControlIO f = liftIO (f return)
  94 +
92 95 data HdbcSnaplet c = IConnection c => HdbcSnaplet {
93 96 hdbcPool :: Pool c }
94 97

0 comments on commit b22be04

Please sign in to comment.
Something went wrong with that request. Please try again.