Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add Sedna snaplet module.

  • Loading branch information...
commit cf54f6e658418e68531335acb518e881ed2b5d0e 1 parent fa8dece
Eric authored
Showing with 18 additions and 0 deletions.
  1. +18 −0 src/Snap/Snaplet/Sedna.hs
18 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
Please sign in to comment.
Something went wrong with that request. Please try again.