Remove redundant HasCallStack

IntersectMBO · Feb 27, 2020 · 5e72c12 · 5e72c12
1 parent 469fbb8
commit 5e72c12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ->