khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-15 06:43:04 +03:00
Code Issues Projects Releases Wiki Activity

Remove unused definitions from example.

Browse Source
This commit is contained in:
Kei Hibino 2013-06-22 17:58:27 +09:00
parent dc67b4ce56
commit e2fffab5bb
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
relational-join-HDBC-pgTest/pgTest/PgTest.hs
View File

@ -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" []