Fixups

cardano-foundation · Jul 29, 2020 · 3b6daca · 3b6daca
1 parent 39390b6
commit 3b6daca
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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