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

Update default not null instances list.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-16 14:46:54 +09:00
parent d7e1c08ba2
commit 5e2c8d9927
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
DB-record/src/Database/Record/Instances.hs
View File

@ -15,10 +15,14 @@
module Database.Record.Instances () where
import Data.Int (Int16, Int32, Int64)
import Database.Record.TH (deriveNotNullValue)
import Database.Record.TH (deriveNotNullType)
$(deriveNotNullValue [t| String |])
$(deriveNotNullValue [t| Int |])
$(deriveNotNullValue [t| Int16 |])
$(deriveNotNullValue [t| Int32 |])
$(deriveNotNullValue [t| Int64 |])
$(fmap concat $ mapM deriveNotNullType
[ [t| Bool |]
, [t| Char |]
, [t| String |]
, [t| Int |]
, [t| Int16 |]
, [t| Int32 |]
, [t| Int64 |]
])

6
DB-record/src/Database/Record/TH.hs
View File

@ -29,7 +29,7 @@ module Database.Record.TH (
defineRecord,
defineRecordDefault,
deriveNotNullValue
deriveNotNullType
) where
@ -269,8 +269,8 @@ defineRecordDefault sqlValueType table columns derives = do
return $ typ : withSql
deriveNotNullValue :: TypeQ -> Q [Dec]
deriveNotNullValue typeCon =
deriveNotNullType :: TypeQ -> Q [Dec]
deriveNotNullType typeCon =
[d| instance PersistableWidth $typeCon where
persistableWidth = Persistable.valueWidth