@@ -11,14 +11,15 @@ import Control.DeepSeq
1111import Control.Monad
1212import Criterion.Main
1313import Data.Aeson
14−import qualified Data.HashMap.Strict as HM
14+import qualified Data.HashMap.Strict as HM
15+import Data.Proxy (Proxy (..))
1516import Data.RNG
16−import qualified Data.Text as T
17−import Database.Bloodhound.Types
17+import qualified Data.Text as T
18+import Database.V1.Bloodhound.Types
1819import Numeric
1920-------------------------------------------------------------------------------
2021import Katip.Scribes.ElasticSearch
21−import Katip.Scribes.ElasticSearch.Annotations
22+import Katip.Scribes.ElasticSearch.Internal (ESV1)
2223-------------------------------------------------------------------------------
2324
2425main :: IO ()
@@ -34,7 +35,7 @@ main = do
3435mkDocIdBenchmark :: RNG -> Benchmark
3536mkDocIdBenchmark rng = bgroup "mkDocId"
3637 [
37− bench "mkDocId (randomIO)" $ nfIO mkDocId
38+ bench "mkDocId (randomIO)" $ nfIO (mkDocId (Proxy :: Proxy ESV1))
3839 , bench "mkDocId' (shared )" $ nfIO $ mkDocId' rng
3940 ]
4041