From f620784a6240edbfd9100636db16b4459c469752 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <info@jonkri.com>
Date: Fri, 23 Aug 2013 16:50:34 +0200
Subject: [PATCH] Hide Remove Subscription constructor

---
 source/Network/Xmpp/IM.hs              | 2 +-
 source/Network/Xmpp/IM/Roster/Types.hs | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

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