Minor edit.

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)