Permalink
Browse files

Add Sedna snaplet module.

  • Loading branch information...
1 parent fa8dece commit cf54f6e658418e68531335acb518e881ed2b5d0e External Reality committed Oct 31, 2011
Showing with 18 additions and 0 deletions.
  1. +18 −0 src/Snap/Snaplet/Sedna.hs
View
@@ -0,0 +1,18 @@
+module Snap.Snaplet.Sedna where
+-------------------------------------------------------------------------------
+import Data.Pool
+import Database.SednaDB.SednaTypes
+import qualified Database.SednaDB.SednaBindings as Sedna
+import Snap.Snaplet
+
+
+-------------------------------------------------------------------------------
+data SednaSnaplet = SednaSnaplet { sednaConnectionPool :: Pool SednaConnection }
+
+
+-------------------------------------------------------------------------------
+sednaInit conn = sednaInit' $ createPool conn
+ Sedna.sednaCloseConnection
+ 1
+ 300
+ 1

0 comments on commit cf54f6e

Please sign in to comment.