remove to prefix from toLocalpart, toDomainpart and toResourcePart

source/Network/Xmpp.hs

@@ -52,9 +52,9 @@ module Network.Xmpp
   , jidToText
   , jidToTexts
   , toBare
-  , toLocalpart
+  , localpart
-  , toDomainpart
+  , domainpart
-  , toResourcepart
+  , resourcepart
   , parseJid
   , getJid
   -- * Stanzas

source/Network/Xmpp/Types.hs

@@ -50,9 +50,9 @@ module Network.Xmpp.Types
     , jidToText
     , jidToTexts
     , toBare
-    , toLocalpart
+    , localpart
-    , toDomainpart
+    , domainpart
-    , toResourcepart
+    , resourcepart
     , parseJid
     , StreamEnd(..)
     , InvalidXmppXml(..)
@@ -913,9 +913,9 @@ newtype Stream = Stream { unStream :: TMVar StreamState }
 -- the entity associated with an XMPP localpart at a domain
 -- (i.e., @localpart\@domainpart/resourcepart@).
 
-data Jid = Jid { localpart :: !(Maybe Text)
+data Jid = Jid { localpart_ :: !(Maybe Text)
-               , domainpart :: !Text
+               , domainpart_ :: !Text
-               , resourcepart :: !(Maybe Text)
+               , resourcepart_ :: !(Maybe Text)
                } deriving (Eq, Ord)
 
 -- | Converts a JID to a Text.
@@ -1010,19 +1010,19 @@ isFull = not . isBare
 
 -- | Returns the @Jid@ without the resourcepart (if any).
 toBare :: Jid -> Jid
-toBare (Jid localpart domainpart _) = Jid localpart domainpart Nothing
+toBare jid  = jid{resourcepart_ = Nothing}
 
 -- | Returns the localpart of the @Jid@ (if any).
-toLocalpart :: Jid -> Maybe Text
+localpart :: Jid -> Maybe Text
-toLocalpart = localpart
+localpart = localpart_
 
 -- | Returns the domainpart of the @Jid@.
-toDomainpart :: Jid -> Text
+domainpart :: Jid -> Text
-toDomainpart = domainpart
+domainpart = domainpart_
 
 -- | Returns the resourcepart of the @Jid@ (if any).
-toResourcepart :: Jid -> Maybe Text
+resourcepart :: Jid -> Maybe Text
-toResourcepart = resourcepart
+resourcepart = resourcepart_
 
 -- Parses an JID string and returns its three parts. It performs no validation
 -- or transformations.