File: TestConnect.hs

package info (click to toggle)
haskelldb 0.9.cvs.601-13
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 680 kB
  • ctags: 33
  • sloc: haskell: 4,392; sh: 1,900; makefile: 130
file content (14 lines) | stat: -rw-r--r-- 389 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
module TestConnect where

import Database.HaskellDB
import Database.HaskellDB.GenericConnect
import System.Environment

connect :: [String] -> (Database -> IO a) -> IO a
connect (driver:args) = genericConnect driver args
connect _ = error "No driver argument supplied"

argConnect :: (Database -> IO a) -> IO a
argConnect f = do
               args <- getArgs
               connect args f