haskelldb-connect-hdbc-lifted (empty) → 0.1.0.0
raw patch · 4 files changed
+101/−0 lines, 4 filesdep +HDBCdep +basedep +haskelldbsetup-changed
Dependencies added: HDBC, base, haskelldb, haskelldb-connect-hdbc, lifted-base, monad-control, transformers-base
Files
- LICENSE +30/−0
- Setup.hs +2/−0
- haskelldb-connect-hdbc-lifted.cabal +33/−0
- src/Database/HaskellDB/Connect/HDBC/Lifted.hs +36/−0
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright (c) 2012, Kei Hibino++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above+ copyright notice, this list of conditions and the following+ disclaimer in the documentation and/or other materials provided+ with the distribution.++ * Neither the name of Kei Hibino nor the names of other+ contributors may be used to endorse or promote products derived+ from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ haskelldb-connect-hdbc-lifted.cabal view
@@ -0,0 +1,33 @@+name: haskelldb-connect-hdbc-lifted+version: 0.1.0.0+synopsis: Bracketed HaskellDB HDBC session using lifted-base+description: This package includes bracketed HDBC session function+ using lifted-base for HaskellDB.+homepage: http://twitter.com/khibino+license: BSD3+license-file: LICENSE+author: Kei Hibino <ex8k.hibino@gmail.com>+maintainer: Kei Hibino <ex8k.hibino@gmail.com>+category: Database+build-type: Simple+cabal-version: >=1.8++library+ exposed-modules: Database.HaskellDB.Connect.HDBC.Lifted++ build-depends: base < 5+ , HDBC+ , haskelldb+ , haskelldb-connect-hdbc+ , transformers-base+ , monad-control+ , lifted-base+ hs-source-dirs: src++source-repository head+ type: git+ location: git://github.com/khibino/haskelldb-connect-hdbc.git++source-repository head+ type: mercurial+ location: https://bitbucket.org/khibino/haskelldb-connect-hdbc
+ src/Database/HaskellDB/Connect/HDBC/Lifted.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE FlexibleContexts #-}+-----------------------------------------------------------+-- |+-- Module : Database.HaskellDB.Connect.HDBC.Lifted+-- Copyright : Kei Hibino 2012+-- License : BSD-style+--+-- Maintainer : ex8k.hibino@gmail.com+-- Stability : experimental+-- Portability : portable+--+-- Bracketed HaskellDB session with 'MonadBaseControl' 'IO'.+--+-----------------------------------------------------------+module Database.HaskellDB.Connect.HDBC.Lifted (+ hdbcSession+ ) where++import Database.HDBC (IConnection)+import Database.HaskellDB.Database (Database)+import Database.HaskellDB.Sql.Generate (SqlGenerator)+import Database.HaskellDB.Connect.HDBC (makeHDBCSession)++import Control.Monad.Base (liftBase)+import Control.Monad.Trans.Control (MonadBaseControl)+import Control.Exception.Lifted (bracket)+++-- | Run an action on a HDBC IConnection and close the connection.+-- 'MonadBaseControl' 'IO' version.+hdbcSession :: (MonadBaseControl IO m, IConnection conn)+ => SqlGenerator+ -> IO conn -- ^ Connect action+ -> (conn -> Database -> m a) -- ^ Transaction body+ -> m a+hdbcSession gen = makeHDBCSession bracket liftBase gen