{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}

module Misc where

import Language.Haskell.TH
import Language.Haskell.TH.Quote

import Database.MetaHDBC

dataSourceName :: String
dataSourceName = "DSN=MetaHDBC_PQ_DSN;USER=MetaHDBC;"

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

runDsn :: QuasiQuoter
runDsn = runStmtML dataSourceName