diff --git a/prometheus-client.cabal b/prometheus-client.cabal
--- a/prometheus-client.cabal
+++ b/prometheus-client.cabal
@@ -1,5 +1,5 @@
 name:                prometheus-client
-version:             1.1.1
+version:             1.1.2
 synopsis:            Haskell client library for http://prometheus.io.
 description:         Haskell client library for http://prometheus.io.
 homepage:            https://github.com/fimad/prometheus-haskell
@@ -49,7 +49,7 @@
     , utf8-string
     , exceptions
     , text
-    , data-sketches
+    , data-sketches      >= 0.4 && <0.5
   ghc-options: -Wall
 
 test-suite doctest
@@ -86,7 +86,7 @@
     , exceptions
     , text
     , primitive
-    , data-sketches
+    , data-sketches      >= 0.4 && <0.5
   ghc-options: -Wall
 
 benchmark bench
diff --git a/src/Prometheus/Metric/Summary.hs b/src/Prometheus/Metric/Summary.hs
--- a/src/Prometheus/Metric/Summary.hs
+++ b/src/Prometheus/Metric/Summary.hs
@@ -69,7 +69,8 @@
 summary :: Info -> [Quantile] -> Metric Summary
 summary info quantiles_ = Metric $ do
     rs <- mkReqSketch kInt HighRanksAreAccurate
-    mv <- newMVar $ rs {criterion = (:<=)}
+    setCriterionLE rs
+    mv <- newMVar rs
     let summary_ = MkSummary mv quantiles_
     return (summary_, collectSummary info summary_)
     where