nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-24 18:53:24 +03:00
Code Issues Projects Releases Wiki Activity

Fix the compatibility issues in benchmarks and tests

Browse Source
This commit is contained in:
Nikita Volkov 2020-03-21 20:48:16 +03:00
parent 8facbbdb32
commit 3de214198a
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
benchmarks/Main.hs
View File

@ -51,7 +51,7 @@ sessionWithManyLargeResults :: B.Session [Vector (Int64, Int64)]
sessionWithManyLargeResults =
replicateM 1000 (B.statement () statementWithManyRowsInVector)
sessionWithSingleLargeResultInList :: B.Session (List (Int64, Int64))
sessionWithSingleLargeResultInList :: B.Session [(Int64, Int64)]
sessionWithSingleLargeResultInList =
B.statement () statementWithManyRowsInList
@ -102,6 +102,6 @@ statementWithManyRowsInVector :: C.Statement () (Vector (Int64, Int64))
statementWithManyRowsInVector =
statementWithManyRows D.rowVector
statementWithManyRowsInList :: C.Statement () (List (Int64, Int64))
statementWithManyRowsInList :: C.Statement () [(Int64, Int64)]
statementWithManyRowsInList =
statementWithManyRows D.rowList

4
profiling/Main.hs
View File

@ -42,7 +42,7 @@ sessionWithSingleLargeResultInVector :: B.Session (Vector (Int64, Int64))
sessionWithSingleLargeResultInVector =
B.statement () statementWithManyRowsInVector
sessionWithSingleLargeResultInList :: B.Session (List (Int64, Int64))
sessionWithSingleLargeResultInList :: B.Session [(Int64, Int64)]
sessionWithSingleLargeResultInList =
B.statement () statementWithManyRowsInList
@ -93,6 +93,6 @@ statementWithManyRowsInVector :: C.Statement () (Vector (Int64, Int64))
statementWithManyRowsInVector =
statementWithManyRows D.rowVector
statementWithManyRowsInList :: C.Statement () (List (Int64, Int64))
statementWithManyRowsInList :: C.Statement () [(Int64, Int64)]
statementWithManyRowsInList =
statementWithManyRows D.rowList

6
tasty/Main/Prelude.hs
View File

@ -1,6 +1,7 @@
module Main.Prelude
(
module Exports,
mapLeft,
)
where
@ -8,3 +9,8 @@ where
-- rerebase
-------------------------
import Prelude as Exports
{-# INLINE mapLeft #-}
mapLeft :: (a -> c) -> Either a b -> Either c b
mapLeft f =
either (Left . f) Right