haskelldb-connect-hdbc-catchio-transformers (empty) → 0.1.0.0
raw patch · 4 files changed
+97/−0 lines, 4 filesdep +HDBCdep +MonadCatchIO-transformersdep +basesetup-changed
Dependencies added: HDBC, MonadCatchIO-transformers, base, haskelldb, haskelldb-connect-hdbc, transformers
Files
- LICENSE +30/−0
- Setup.hs +2/−0
- haskelldb-connect-hdbc-catchio-transformers.cabal +32/−0
- src/Database/HaskellDB/Connect/HDBC/CatchIO.hs +33/−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-catchio-transformers.cabal view
@@ -0,0 +1,32 @@+name: haskelldb-connect-hdbc-catchio-transformers+version: 0.1.0.0+synopsis: Bracketed HaskellDB HDBC session using MonadCatchIO-transformers+description: This package includes bracketed HDBC session function+ using MonadCatchIO-transformers 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.CatchIO++ build-depends: base < 5+ , HDBC+ , haskelldb+ , haskelldb-connect-hdbc+ , transformers+ , MonadCatchIO-transformers+ 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/CatchIO.hs view
@@ -0,0 +1,33 @@+-----------------------------------------------------------+-- |+-- Module : Database.HaskellDB.Connect.HDBC.CatchIO+-- Copyright : Kei Hibino 2012+-- License : BSD-style+--+-- Maintainer : ex8k.hibino@gmail.com+-- Stability : experimental+-- Portability : portable+--+-- Bracketed HaskellDB session with 'MonadCatchIO'.+--+-----------------------------------------------------------+module Database.HaskellDB.Connect.HDBC.CatchIO (+ 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.IO.Class (liftIO)+import Control.Monad.CatchIO (MonadCatchIO, bracket)++-- | Run an action on a HDBC IConnection and close the connection.+-- 'MonadCatchIO' version.+hdbcSession :: (MonadCatchIO m, IConnection conn)+ => SqlGenerator+ -> IO conn -- ^ Connect action+ -> (conn -> Database -> m a) -- ^ Transaction body+ -> m a+hdbcSession gen = makeHDBCSession bracket liftIO gen