nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-23 10:42:19 +03:00
Code Issues Projects Releases Wiki Activity

Update benchmarks

Browse Source
This commit is contained in:
Nikita Volkov 2015-11-20 09:28:09 +03:00
parent 5c094a9aed
commit e511cb7114
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
benchmark/Main/Queries.hs
View File

@ -6,7 +6,7 @@ import qualified Hasql.Serialization as HS
import qualified Hasql.Deserialization as HD
select1 :: Int -> H.Query () (Vector Int64)
select1 :: Int -> H.Query () ([] Int64)
select1 amount =
(sql, mempty, deserializer, True)
where
@ -14,9 +14,9 @@ select1 amount =
"values " <>
mconcat (intersperse ", " (replicate amount "(1)"))
deserializer =
HD.rowsVector (HD.value HD.int8)
HD.rowsList (HD.value HD.int8)
select4 :: Int -> H.Query () (Vector (Int64, Int64, Int64, Int64))
select4 :: Int -> H.Query () ([] (Int64, Int64, Int64, Int64))
select4 amount =
(sql, mempty, deserializer, True)
where
@ -24,4 +24,4 @@ select4 amount =
"values " <>
mconcat (intersperse ", " (replicate amount "(1, 2, 3, 4)"))
deserializer =
HD.rowsVector ((,,,) <$> HD.value HD.int8 <*> HD.value HD.int8 <*> HD.value HD.int8 <*> HD.value HD.int8)
HD.rowsList ((,,,) <$> HD.value HD.int8 <*> HD.value HD.int8 <*> HD.value HD.int8 <*> HD.value HD.int8)