haskelldb-hsql-mysql (empty) → 0.10

raw patch · 3 files changed

+62/−0 lines, 3 filesdep +basedep +haskell98dep +haskelldbbuild-type:Customsetup-changed

Dependencies added: base, haskell98, haskelldb, haskelldb-hsql, hsql, hsql-mysql, mtl

Files

• Database/HaskellDB/HSQL/MySQL.hs +43/−0
• Setup.hs +4/−0
• haskelldb-hsql-mysql.cabal +15/−0

@@ -0,0 +1,43 @@+-----------------------------------------------------------+-- |+-- Module      :  Database.HaskellDB.HSQL.MySQL+-- Copyright   :  HWT Group 2003,+--                Bjorn Bringert 2006+-- License     :  BSD-style+-- +-- Maintainer  :  haskelldb-users@lists.sourceforge.net+-- Stability   :  experimental+-- Portability :  non-portable+--+-----------------------------------------------------------+module Database.HaskellDB.HSQL.MySQL (MySQLOptions(..), mysqlConnect,+                                      DriverInterface(..), driver) where++import Database.HaskellDB.Database+import Database.HaskellDB.HSQL+import Database.HaskellDB.DriverAPI+import Database.HaskellDB.Sql.MySQL (generator)+import qualified Database.HSQL.MySQL as MySQL (connect) ++data MySQLOptions = MySQLOptions { +                                  server :: String, -- ^ server name+                                  db :: String,     -- ^ database name+                                  uid :: String,    -- ^ user id+                                  pwd :: String     -- ^ password+                                 }++mysqlConnect :: MonadIO m => MySQLOptions -> (Database -> m a) -> m a+mysqlConnect opts = +    hsqlConnect generator (MySQL.connect (server opts) (db opts) (uid opts) (pwd opts))++mysqlConnectOpts :: MonadIO m => [(String,String)] -> (Database -> m a) -> m a+mysqlConnectOpts opts f = +    do+    [a,b,c,d] <- getOptions ["server","db","uid","pwd"] opts+    mysqlConnect (MySQLOptions {server = a, db = b,+                                uid = c, pwd = d}) f++-- | This driver requires the following options: +--   "server", "db", "uid", "pwd"+driver :: DriverInterface+driver = defaultdriver { connect = mysqlConnectOpts }

@@ -0,0 +1,4 @@+#!/usr/bin/env runghc++import Distribution.Simple+main = defaultMain

@@ -0,0 +1,15 @@+Name: haskelldb-hsql-mysql+Version: 0.10+Copyright: The authors+Maintainer: haskelldb-users@lists.sourceforge.net+Author: Daan Leijen, Conny Andersson, Martin Andersson, Mary Bergman, Victor Blomqvist, Bjorn Bringert, Anders Hockersten, Torbjorn Martin, Jeremy Shaw+License: BSD3+build-depends: haskell98, base, mtl, haskelldb, haskelldb-hsql, hsql, hsql-mysql+Extensions: ExistentialQuantification,+            OverlappingInstances,+            UndecidableInstances,+            MultiParamTypeClasses+Synopsis: HaskellDB support for the HSQL MySQL driver.+Exposed-Modules:+        Database.HaskellDB.HSQL.MySQL+ghc-options: -O2