{-# LANGUAGE TemplateHaskell #-}

module Main where

import SqlExpr

import Database.HDBC
import Database.HDBC.ODBC

main :: IO ()
main = do connection <- connectODBC "DSN=MySQL_DSN;USER=StocksDaemon;"
          xs <- selectIntegerList connection
          ys <- selectTupleList connection
          print xs
          print ys
          let mySum :: Integer
              mySum = sum xs
          putStrLn ("Sum is: " ++ (show mySum))

selectIntegerList :: Connection -> IO [Integer]
selectIntegerList c =
    $(compileSql "DSN=MySQL_DSN;USER=StocksDaemon;"
      "SELECT user_id FROM user;") c

selectTupleList :: Connection -> IO [(Integer, String, String)]
selectTupleList c =
    $(compileSql "DSN=MySQL_DSN;USER=StocksDaemon;"
      "SELECT user_id, user_name, user_real_name FROM user;") c