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

Reduce dependency to Persistable.

Browse Source
This commit is contained in:
Kei Hibino 2014-07-29 14:16:35 +09:00
parent ee3e5a3f7e
commit 8657453111
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
persistable-record/src/Database/Record/FromSql.hs
View File

@ -155,7 +155,7 @@ instance (HasColumnConstraint NotNull a, FromSql q a, PersistableType q)
-- | Inference rule of 'RecordFromSql' proof object which can convert
-- from /empty/ list of SQL type ['q'] into Haskell unit () type.
instance FromSql q () where
recordFromSql = recordFromSql'
recordFromSql = RecordFromSql (\qs -> ((), qs))
-- | Run inferred 'RecordFromSql' proof object.
-- Convert from list of SQL type ['q'] into haskell type 'a' and rest of list ['q'].