From 5eb886bfbf842251fb22e1749ecda7bc82089fd0 Mon Sep 17 00:00:00 2001 From: Marcin Szamotulski Date: Wed, 23 Sep 2020 14:38:16 +0200 Subject: [PATCH] p2p-governor: removed HasCallStack constraint --- .../src/Ouroboros/Network/PeerSelection/Governor/Types.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs b/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs index ec40d820469..ede9561f25f 100644 --- a/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs +++ b/ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs @@ -18,7 +18,6 @@ import Control.Concurrent.JobPool (Job) import Control.Monad.Class.MonadSTM import Control.Monad.Class.MonadTime import Control.Exception (assert, SomeException) -import GHC.Stack import qualified Ouroboros.Network.PeerSelection.KnownPeers as KnownPeers import Ouroboros.Network.PeerSelection.KnownPeers (KnownPeers, KnownPeerInfo(..)) @@ -40,7 +39,7 @@ type PickPolicy peeraddr m = Map peeraddr KnownPeerInfo -- | Check pre-conditions and post-conditions on the pick policies -pickPeers :: (Ord peeraddr, Functor m, HasCallStack) +pickPeers :: (Ord peeraddr, Functor m) => (Map peeraddr a -> Int -> m (Set peeraddr)) -> Map peeraddr a -> Int -> m (Set peeraddr) pickPeers pick available num =