Permalink
Browse files

Add a manual instance of MonadControlIO for Handler (until it's

supported by Snap)
  • Loading branch information...
norm2782 committed Oct 17, 2011
1 parent ea0be27 commit 6d2a82760d9b2abca6fc8b6dea652a46f0e0e2e6
Showing with 3 additions and 0 deletions.
  1. +3 −0 src/Snap/Snaplet/Hdbc.hs
View
@@ -89,6 +89,9 @@ type Row = Map String SqlValue
class (IConnection c, MonadControlIO 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 6d2a827

Please sign in to comment.