Skip to content
Browse files

Make the HasHdbc instance more general

  • Loading branch information...
1 parent 6681a5d commit b03b802dbf51d3a0d6de2f5b88cc06f0bc1b3fac @norm2782 committed Oct 28, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Application.hs
View
2 src/Application.hs
@@ -58,7 +58,7 @@ makeLens ''App
type AppHandler = Handler App App
-instance HasHdbc AppHandler Connection where
+instance HasHdbc (Handler b App) Connection where
getPool = with dbLens $ gets hdbcPool
jcu :: SnapletInit App App

0 comments on commit b03b802

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