From f4c8d11fdf0210d4ed1427a62e920b429cd23a12 Mon Sep 17 00:00:00 2001 From: joe Date: Mon, 13 Nov 2017 18:15:36 -0500 Subject: Minor edit. --- Presence/Presence.hs | 4 +++- TraversableT.hs | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Presence/Presence.hs b/Presence/Presence.hs index 9660b29f..d2a6b6eb 100644 --- a/Presence/Presence.hs +++ b/Presence/Presence.hs @@ -145,7 +145,9 @@ data PresenceState = PresenceState , remotesByPeer :: TVar (Map ConnectionKey (Map UserName RemotePresence)) - , associatedPeers :: TVar (Map SockAddr ()) + , -- | These are the remote peers we are seeking to obtain a connection to. + -- See 'rosterGetStuff'. + associatedPeers :: TVar (Map SockAddr ()) , server :: TMVar XMPPServer , keyToChan :: TVar (Map ConnectionKey Conn) , consoleWriter :: Maybe ConsoleWriter diff --git a/TraversableT.hs b/TraversableT.hs index cc187951..c0e40853 100644 --- a/TraversableT.hs +++ b/TraversableT.hs @@ -2,7 +2,7 @@ module TraversableT where import Data.Traversable import Control.Monad (join,MonadPlus(..)) -import Control.Monad.Trans.Class +import Control.Monad.Trans.Class (MonadTrans(..)) import Control.Applicative import Data.Foldable (Foldable(foldMap), toList) import Data.Maybe (maybeToList) -- cgit v1.2.3