diff --git a/relational-join-HDBC-pgTest/pgTest/PgTest.hs b/relational-join-HDBC-pgTest/pgTest/PgTest.hs index bd91097a..af95f880 100644 --- a/relational-join-HDBC-pgTest/pgTest/PgTest.hs +++ b/relational-join-HDBC-pgTest/pgTest/PgTest.hs @@ -1,26 +1,6 @@ -{-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE MultiParamTypeClasses #-} - module PgTest where import Distribution.TestSuite (Test) -import PgTestDataSource (defineTable) --- import Database.HDBC.PostgreSQL (connectPostgreSQL, Connection) --- import Database.HDBC.Schema.PostgreSQL (driverPostgreSQL) --- import Database.HDBC.Schema.Driver (typeMap) --- import Database.HDBC.TH (defineTableFromDB) -import Data.ByteString (ByteString) -import Data.Text (Text) tests :: [Test] tests = [] - -$(defineTable - [("varchar", [t| ByteString |]), - ("text", [t| Text |]) - ] - "TEST" "test_table0" []) --- defineTableFromDB --- (connectPostgreSQL "dbname=testdb") --- (driverPostgreSQL { typeMap = [("varchar", [t| Text |])] }) --- "TEST" "test_table0" []