From 5e72c125bac5e02c868a30582081016882491e8c Mon Sep 17 00:00:00 2001 From: Thomas Winant Date: Thu, 27 Feb 2020 09:14:50 +0100 Subject: [PATCH] Remove redundant `HasCallStack` --- .../src/Ouroboros/Consensus/Storage/VolatileDB/Impl.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Storage/VolatileDB/Impl.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Storage/VolatileDB/Impl.hs index c5c05c640f5..b104867ff42 100644 --- a/ouroboros-consensus/src/Ouroboros/Consensus/Storage/VolatileDB/Impl.hs +++ b/ouroboros-consensus/src/Ouroboros/Consensus/Storage/VolatileDB/Impl.hs @@ -433,7 +433,7 @@ getSuccessorsImpl :: forall m blockId. (IOLike m, Ord blockId) getSuccessorsImpl = getterSTM $ \st blockId -> fromMaybe Set.empty (Map.lookup blockId (_currentSuccMap st)) -getBlockInfoImpl :: forall m blockId. (IOLike m, Ord blockId, HasCallStack) +getBlockInfoImpl :: forall m blockId. (IOLike m, Ord blockId) => VolatileDBEnv m blockId -> STM m (blockId -> Maybe (BlockInfo blockId)) getBlockInfoImpl = getterSTM $ \st blockId ->