postgresql-pure-0.1.1.0: test-relational-record/DataSource.hs

module DataSource (connect) where

import           Data.Default.Class       (def)
import           Database.HDBC.PostgreSQL (Connection, connectPostgreSQL)

connect :: IO Connection
connect = connectPostgreSQL "host='localhost' user='postgres'"