{-# LANGUAGE TemplateHaskell #-}

module Misc where

dataSourceName :: String
dataSourceName = db2Dsn

mysqlDsn, pqDsn, sqliteDsn, db2Dsn :: String
mysqlDsn  = "DSN=MetaHDBC_DSN;USER=MetaHDBC;"
pqDsn     = "DSN=MetaHDBC_PQ_DSN;USER=MetaHDBC;"
sqliteDsn = "Driver=SQLITE;Database=/home/ghctest/MetaHDBC/MetaHDBC/SQLite/MetaHDBC.db"
-- DB2 data source names (DSN) should be <= 8 in length
db2Dsn = "DSN=MHdbcDB2;"

printCar :: String -> Int -> IO ()
printCar make topSpeed =
    putStrLn ("A " ++ make ++ " with a top speed of " ++
              show topSpeed ++ " kilometre per hour")

simpleSplice :: IO ()
simpleSplice = putStrLn $( let x = show (3 + 5)
                           in [| x |]
                         )