postgresql-libpq-0.9.4.2: test/Smoke.hs

module Main (main) where

import Database.PostgreSQL.LibPQ
import System.Environment (getEnvironment)

import qualified Data.ByteString.Char8 as BS8

main :: IO ()
main = do
    env <- getEnvironment
    case lookup "DATABASE_CONNSTRING" env of
        Nothing -> putStrLn "Set DATABASE_CONNSTRING environment variable"
        Just s  -> smoke (BS8.pack s)

smoke :: BS8.ByteString -> IO ()
smoke connstring = do
    conn <- connectdb connstring

    -- status functions
    db conn                >>= print
    user conn              >>= print
    host conn              >>= print
    port conn              >>= print
    status conn            >>= print
    transactionStatus conn >>= print
    protocolVersion conn   >>= print
    serverVersion conn     >>= print

    finish conn