khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-05 20:04:49 +03:00
Code Issues Projects Releases Wiki Activity

Update with renamed TH function.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-16 16:01:14 +09:00
parent 3ba25c618f
commit fa205b3381
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-query-HDBC/src/Database/HDBC/Record/InternalTH.hs
View File

@ -17,7 +17,7 @@ import Data.Convertible (Convertible)
import Database.HDBC (SqlValue)
import Database.HDBC.SqlValueExtra ()
import Database.Record (PersistableWidth)
import Database.Record.TH (deriveNotNullValue)
import Database.Record.TH (deriveNotNullType)
import Database.Record.Instances ()
import Database.HDBC.Record.TH (derivePersistableInstanceFromValue)
@ -87,6 +87,6 @@ derivePersistableInstancesFromConvertibleSqlValues :: Q [Dec]
derivePersistableInstancesFromConvertibleSqlValues = do
wds <- persistableWidthValues
svs <- convertibleSqlValues
ws <- mapInstanceD deriveNotNullValue (toList $ Set.difference svs wds)
ws <- mapInstanceD deriveNotNullType (toList $ Set.difference svs wds)
ps <- mapInstanceD derivePersistableInstanceFromValue (toList svs)
return $ ws ++ ps