Fix the benchmarks

This commit is contained in:
Nikita Volkov 2021-03-23 16:16:06 +03:00
parent 2de0bf4ddb
commit 3941628285
2 changed files with 5 additions and 6 deletions

View File

@ -1,9 +1,8 @@
module Main where
import Prelude
import Bug
import Criterion
import Criterion.Main
import Gauge
import Gauge.Main
import qualified Hasql.Connection as A
import qualified Hasql.Session as B
import qualified Hasql.Statement as C
@ -41,7 +40,7 @@ main =
sessionWithManySmallParameters :: Vector (Int64, Int64) -> B.Session ()
sessionWithManySmallParameters =
$(todo "sessionWithManySmallParameters")
error "TODO: sessionWithManySmallParameters"
sessionWithSingleLargeResultInVector :: B.Session (Vector (Int64, Int64))
sessionWithSingleLargeResultInVector =
@ -65,7 +64,7 @@ sessionWithManySmallResults =
statementWithManyParameters :: C.Statement (Vector (Int64, Int64)) ()
statementWithManyParameters =
$(todo "statementWithManyParameters")
error "TODO: statementWithManyParameters"
statementWithSingleRow :: C.Statement () (Int64, Int64)
statementWithSingleRow =

View File

@ -123,7 +123,7 @@ benchmark benchmarks
-rtsopts
-funbox-strict-fields
build-depends:
criterion >=1.1 && <2,
gauge >=0.2.5 && <0.3,
hasql,
rerebase <2