khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 22:02:07 +03:00
Code Issues Projects Releases Wiki Activity

Simplify dependencies.

Browse Source
This commit is contained in:
Kei Hibino 2014-07-29 12:19:14 +09:00
parent 23d0eb840c
commit 011e77875a
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
relational-query-HDBC/src/Database/HDBC/Record/TH.hs
View File

@ -18,21 +18,16 @@ module Database.HDBC.Record.TH (
import Language.Haskell.TH (Q, Dec, Type)
import Database.HDBC (SqlValue)
import Database.HDBC.SqlValueExtra ()
import Database.Record
(Persistable(persistable), derivedPersistableValueRecord,
FromSql(recordFromSql), recordFromSql', ToSql(recordToSql), recordToSql')
import Database.Record (FromSql(..), valueFromSql, ToSql(..), valueToSql)
-- | Template to declare HDBC instances of DB-record against single value type.
derivePersistableInstanceFromValue :: Q Type -- ^ Type to implement instances
-> Q [Dec] -- ^ Result declarations
derivePersistableInstanceFromValue typ =
[d| instance Persistable SqlValue $(typ) where
persistable = derivedPersistableValueRecord
instance FromSql SqlValue $(typ) where
recordFromSql = recordFromSql'
[d| instance FromSql SqlValue $(typ) where
recordFromSql = valueFromSql
instance ToSql SqlValue $(typ) where
recordToSql = recordToSql'
recordToSql = valueToSql
|]