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

Rename function to get maybe record from SQL.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-18 09:48:27 +09:00
parent 7c1598d85b
commit 53e20120b2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
DB-record/src/Database/Record/FromSql.hs
View File

@ -18,7 +18,7 @@ module Database.Record.FromSql (
(<&>),
outer,
maybeRecord,
FromSql (recordFromSql), recordFromSql',
takeRecord, toRecord,
@ -68,11 +68,11 @@ a <&> b = (,) <$> a <*> b
infixl 4 <&>
outer :: PersistableType q
=> RecordFromSql q a
-> KeyConstraint NotNull a
-> RecordFromSql q (Maybe a)
outer rec pkey = createRecordFromSql mayToRec where
maybeRecord :: PersistableType q
=> RecordFromSql q a
-> KeyConstraint NotNull a
-> RecordFromSql q (Maybe a)
maybeRecord rec pkey = createRecordFromSql mayToRec where
mayToRec vals
| vals !! index pkey /= Persistable.sqlNullValue = (Just a, vals')
| otherwise = (Nothing, vals') where
@ -90,7 +90,7 @@ instance (FromSql q a, FromSql q b) => FromSql q (a, b) where
instance (HasKeyConstraint NotNull a, FromSql q a, PersistableType q)
=> FromSql q (Maybe a) where
recordFromSql = outer recordFromSql $ keyConstraint
recordFromSql = maybeRecord recordFromSql keyConstraint
instance FromSql q () where
recordFromSql = recordFromSql'