refactor: rename timeInterpreter

cardano-foundation · Apr 7, 2022 · 5bf7945 · 5bf7945
1 parent baa40b9
commit 5bf7945
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs
@@ -195,7 +195,7 @@ withNetworkLayer tr net np project k = k NetworkLayer
     , stakeDistribution = undefined
     , getCachedRewardAccountBalance = undefined
     , fetchRewardAccountBalances = undefined
-    , timeInterpreter = timeInterpreter getGenesisBlockDate
+    , timeInterpreter = timeInterpreterFromStartTime getGenesisBlockDate
     , syncProgress = undefined
     }
   where
@@ -224,9 +224,9 @@ withNetworkLayer tr net np project k = k NetworkLayer
         epoch <- fromBlockfrostM _epochInfoEpoch
         liftEither $ eraByEpoch net epoch
 
-    timeInterpreter ::
+    timeInterpreterFromStartTime ::
         StartTime -> TimeInterpreter (ExceptT PastHorizonException IO)
-    timeInterpreter startTime =
+    timeInterpreterFromStartTime startTime =
         mkTimeInterpreter (MsgTimeInterpreterLog >$< tr) startTime $
             pure $ HF.mkInterpreter $ networkSummary net