Remove apparentPerformance lens

cardano-foundation · Jan 21, 2020 · 74a26bb · 74a26bb
1 parent 3e5ea87
commit 74a26bb
Showing 1 changed file with 0 additions and 10 deletions.
diff --git a/lib/core-integration/src/Test/Integration/Framework/DSL.hs b/lib/core-integration/src/Test/Integration/Framework/DSL.hs
@@ -51,7 +51,6 @@ module Test.Integration.Framework.DSL
     , RequestException(..)
 
     -- * Lens
-    , apparentPerformance
     , blocks
     , coinSelectionInputs
     , coinSelectionOutputs
@@ -720,15 +719,6 @@ blocks = lens
     (getQuantity . getField @"producedBlocks")
     (\(s, v) -> setField @"producedBlocks" (Quantity v) s)
 
-apparentPerformance :: HasType Double s => Lens' s Double
-apparentPerformance =
-    lens _get _set
-  where
-    _get :: HasType Double s => s -> Double
-    _get = view typed
-    _set :: HasType Double s => (s, Double) -> s
-    _set (s, v) = set typed v s
-
 --
 -- Helpers
 --