[Pkg-haskell-commits] r1203 - in /packages/haskelldb-hsql-postgresql: ./ branches/ branches/upstream/ branches/upstream/current/ branches/upstream/current/Database/ branches/upstream/current/Database/HaskellDB/ branches/upstream/current/Database/HaskellDB/HSQL/

[arjan at users.alioth.debian.org]

Author: arjan
Date: Wed Apr 30 22:43:37 2008
New Revision: 1203

URL: http://svn.debian.org/wsvn/pkg-haskell/?sc=1&rev=1203
Log:
[svn-inject] Installing original source of haskelldb-hsql-postgresql

Added:
    packages/haskelldb-hsql-postgresql/
    packages/haskelldb-hsql-postgresql/branches/
    packages/haskelldb-hsql-postgresql/branches/upstream/
    packages/haskelldb-hsql-postgresql/branches/upstream/current/
    packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/
    packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/
    packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/
    packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/PostgreSQL.hs
    packages/haskelldb-hsql-postgresql/branches/upstream/current/Setup.hs
    packages/haskelldb-hsql-postgresql/branches/upstream/current/haskelldb-hsql-postgresql.cabal

Added: packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/PostgreSQL.hs
URL: http://svn.debian.org/wsvn/pkg-haskell/packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/PostgreSQL.hs?rev=1203&op=file
==============================================================================
--- packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/PostgreSQL.hs (added)
+++ packages/haskelldb-hsql-postgresql/branches/upstream/current/Database/HaskellDB/HSQL/PostgreSQL.hs Wed Apr 30 22:43:37 2008
@@ -1,0 +1,45 @@
+-----------------------------------------------------------
+-- |
+-- Module      :  Database.HaskellDB.HSQL.PostgreSQL
+-- Copyright   :  HWT Group 2003,
+--                Bjorn Bringert 2006
+-- License     :  BSD-style
+-- 
+-- Maintainer  :  haskelldb-users at lists.sourceforge.net
+-- Stability   :  experimental
+-- Portability :  non-portable
+--
+-----------------------------------------------------------
+module Database.HaskellDB.HSQL.PostgreSQL (
+		      PostgreSQLOptions(..), postgresqlConnect,
+                      DriverInterface(..), driver
+		      ) where
+
+import Database.HaskellDB.Database
+import Database.HaskellDB.HSQL
+import Database.HaskellDB.DriverAPI
+import Database.HaskellDB.Sql.PostgreSQL
+import qualified Database.HSQL.PostgreSQL as PostgreSQL (connect) 
+
+data PostgreSQLOptions = PostgreSQLOptions { 
+				  server :: String, -- ^ server name
+				  db :: String,     -- ^ database name
+				  uid :: String,    -- ^ user id
+				  pwd :: String     -- ^ password
+                  		 }
+
+postgresqlConnect :: MonadIO m => PostgreSQLOptions -> (Database -> m a) -> m a
+postgresqlConnect opts = 
+    hsqlConnect generator (PostgreSQL.connect (server opts) (db opts) (uid opts) (pwd opts))
+
+postgresqlConnectOpts :: MonadIO m => [(String,String)] -> (Database -> m a) -> m a
+postgresqlConnectOpts opts f = 
+    do
+    [a,b,c,d] <- getOptions ["server","db","uid","pwd"] opts
+    postgresqlConnect (PostgreSQLOptions {server = a, db = b,
+                                          uid = c, pwd = d}) f
+
+-- | This driver requires the following options: 
+--   "server", "db", "uid", "pwd"
+driver :: DriverInterface
+driver = defaultdriver { connect = postgresqlConnectOpts }

Added: packages/haskelldb-hsql-postgresql/branches/upstream/current/Setup.hs
URL: http://svn.debian.org/wsvn/pkg-haskell/packages/haskelldb-hsql-postgresql/branches/upstream/current/Setup.hs?rev=1203&op=file
==============================================================================
--- packages/haskelldb-hsql-postgresql/branches/upstream/current/Setup.hs (added)
+++ packages/haskelldb-hsql-postgresql/branches/upstream/current/Setup.hs Wed Apr 30 22:43:37 2008
@@ -1,0 +1,4 @@
+#!/usr/bin/env runghc
+
+import Distribution.Simple
+main = defaultMain

Added: packages/haskelldb-hsql-postgresql/branches/upstream/current/haskelldb-hsql-postgresql.cabal
URL: http://svn.debian.org/wsvn/pkg-haskell/packages/haskelldb-hsql-postgresql/branches/upstream/current/haskelldb-hsql-postgresql.cabal?rev=1203&op=file
==============================================================================
--- packages/haskelldb-hsql-postgresql/branches/upstream/current/haskelldb-hsql-postgresql.cabal (added)
+++ packages/haskelldb-hsql-postgresql/branches/upstream/current/haskelldb-hsql-postgresql.cabal Wed Apr 30 22:43:37 2008
@@ -1,0 +1,15 @@
+Name: haskelldb-hsql-postgresql
+Version: 0.10
+Copyright: The authors
+Maintainer: haskelldb-users at 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-postgresql
+Extensions: ExistentialQuantification,
+            OverlappingInstances,
+            UndecidableInstances,
+            MultiParamTypeClasses
+Synopsis: HaskellDB support for the HSQL PostgreSQL driver.
+Exposed-Modules:
+        Database.HaskellDB.HSQL.PostgreSQL
+ghc-options: -O2