From 3b6daca297d63e42c58d8a49c78ddafef8e92c22 Mon Sep 17 00:00:00 2001
From: Johannes Lund <johannes.lund@iohk.io>
Date: Wed, 29 Jul 2020 12:16:03 +0200
Subject: [PATCH] Fixups

---
 lib/core/test/unit/Cardano/Wallet/Api/ServerSpec.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/core/test/unit/Cardano/Wallet/Api/ServerSpec.hs b/lib/core/test/unit/Cardano/Wallet/Api/ServerSpec.hs
index b11628ea562..4dd3d9f3a41 100644
--- a/lib/core/test/unit/Cardano/Wallet/Api/ServerSpec.hs
+++ b/lib/core/test/unit/Cardano/Wallet/Api/ServerSpec.hs
@@ -100,7 +100,7 @@ spec = describe "API Server" $ do
             Left e -> fail (show e)
 
     describe "getNetworkInformation" $ do
-        it "doesn't return 500 when the time interpreter horizon is ahead of\
+        it "doesn't return 500 when the time interpreter horizon is behind\
            \ the current time" $ property $ \(gap' ::(NonNegative Int)) ->
             monadicIO $ do
             let gap = fromRational $ toRational $ getNonNegative gap'
@@ -156,14 +156,14 @@ spec = describe "API Server" $ do
 
     forkInterpreter startTime =
         let
-            era1 = HF.initBound
-            era2 = HF.Bound
+            start = HF.initBound
+            end = HF.Bound
                     (RelativeTime 20)
                     (SlotNo 20)
                     (EpochNo 1)
 
             era1Params = HF.defaultEraParams (SecurityParam 2) (mkSlotLength 1)
-            summary = HF.summaryWithExactly $ exactlyOne
-                (HF.EraSummary era1 (HF.EraEnd era2) era1Params)
+            summary = HF.summaryWithExactly $ exactlyOne $
+                HF.EraSummary start (HF.EraEnd end) era1Params
             int = HF.mkInterpreter summary
         in mkTimeInterpreter startTime int