kConnection = do
    connectionString <- B.readFile "pq.conf"
    conn <- connectPostgreSQL connectionString
    _ <- execute_ conn "SET SESSION synchronous_commit TO off"
    return conn

-- the information necessary for entering events into the database.
-- because the database should be able to contain multiple traces,
-- we keep a set of keys to uniquely identify the machines, processes and
-- threads within the current trace.

mkConnection = do
    connectionString <- B.readFile "pq.conf"
    conn <- connectPostgreSQL connectionString
    _ <- execute_ conn "SET SESSION synchronous_commit TO off"
    return conn

-- the information necessary for entering events into the database.
-- because the database should be able to contain multiple traces,
-- we keep a set of keys to uniquely identify the machines, processes and
-- threads within the current trace.
mkConnection = do
    connectionString <- B.readFile "pq.conf"
    conn <- connectPostgreSQL connectionString
    _ <- execute_ conn "SET SESSION synchronous_commit TO off"
    return conn

-- the information necessary for entering events into the database.
-- because the database should be able to contain multiple traces,
-- we keep a set of keys to uniquely identify the machines, processes and
-- threads within the current trace.