diff --git a/source/Network/Xmpp/IM.hs b/source/Network/Xmpp/IM.hs
index fd88e05..5c1b682 100644
--- a/source/Network/Xmpp/IM.hs
+++ b/source/Network/Xmpp/IM.hs
@@ -6,7 +6,7 @@ module Network.Xmpp.IM
   , MessageBody(..)
   , MessageThread(..)
   , MessageSubject(..)
-  , Subscription(..)
+  , Subscription(None, To, From, Both)
   , instantMessage
   , simpleIM
   , getIM
diff --git a/source/Network/Xmpp/IM/Roster/Types.hs b/source/Network/Xmpp/IM/Roster/Types.hs
index c3af358..18416e8 100644
--- a/source/Network/Xmpp/IM/Roster/Types.hs
+++ b/source/Network/Xmpp/IM/Roster/Types.hs
@@ -4,6 +4,8 @@ import qualified Data.Map as Map
 import           Data.Text (Text)
 import           Network.Xmpp.Types
 
+-- Note that `Remove' is not exported from IM.hs, as it will never be visible to
+-- the user anyway.
 data Subscription = None | To | From | Both | Remove deriving (Eq, Read, Show)
 
 data Roster = Roster { ver :: Maybe Text