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

Add fetch function.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-11 02:32:06 +09:00
parent 38b67662eb
commit c803dc97b8
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
schema-th/src/Database/HDBC/Record/Query.hs
View File

@ -14,7 +14,7 @@ module Database.HDBC.Record.Query (
ExecutedStatement, executed, result, execute,
fetchAll, fetchAll',
fetch, fetchAll, fetchAll',
listToUnique, fetchUnique, fetchUnique',
runStatement, runStatement',
@ -61,13 +61,17 @@ execute bs = do
n <- HDBC.execute stmt (params bs)
return $ ExecutedStatement stmt n
fetchRecordsExplicit :: (Statement -> IO [[SqlValue]])
fetchRecordsExplicit :: Functor f
=> (Statement -> IO (f [SqlValue]) )
-> RecordFromSql SqlValue a
-> ExecutedStatement a
-> IO [a]
fetchRecordsExplicit fetch fromSql es = do
rows <- fetch (executed es)
return $ map (runToRecord fromSql) rows
-> IO (f a)
fetchRecordsExplicit fetchs fromSql es = do
rows <- fetchs (executed es)
return $ fmap (runToRecord fromSql) rows
fetch :: FromSql SqlValue a => ExecutedStatement a -> IO (Maybe a)
fetch = fetchRecordsExplicit HDBC.fetchRow recordFromSql
fetchAll :: FromSql SqlValue a => ExecutedStatement a -> IO [a]
fetchAll = fetchRecordsExplicit HDBC.fetchAllRows recordFromSql