From 140e522a5baa2dd6bffb5eedba5b7ea77a309f34 Mon Sep 17 00:00:00 2001 From: Sergey Alirzaev Date: Mon, 14 Jan 2019 17:52:30 +0300 Subject: [PATCH] containers-0.6 compatibility --- source/Network/Xmpp/Concurrent/IQ.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/Network/Xmpp/Concurrent/IQ.hs b/source/Network/Xmpp/Concurrent/IQ.hs index 6e94b0e..a9954e3 100644 --- a/source/Network/Xmpp/Concurrent/IQ.hs +++ b/source/Network/Xmpp/Concurrent/IQ.hs @@ -12,6 +12,7 @@ import Control.Monad import Control.Monad.Except import Control.Monad.Trans import qualified Data.Map as Map +import qualified Data.Map.Strict as Map.Strict import Data.Maybe import Data.Text (Text) import Data.XML.Pickle @@ -112,7 +113,7 @@ listenIQ tp ns session = do atomically $ do (byNS, byID) <- readTVar handlers iqCh <- newTChan - let (present, byNS') = Map.insertLookupWithKey' + let (present, byNS') = Map.Strict.insertLookupWithKey (\_ _ old -> old) (tp, ns) iqCh