XMPP 0.0.2 → 0.0.3

raw patch · 5 files changed

+13/−4 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ Network.XMPP: allChilds :: XMLElem -> [XMLElem]

+ Network.XMPP: hasNodeName :: String -> StanzaPredicate

- Network.XMPP: sendPresence :: XMPP ()

+ Network.XMPP: sendPresence :: Integer -> XMPP ()

- Network.XMPP: startAuth :: String -> String -> String -> String -> XMPP Integer

+ Network.XMPP: startAuth :: String -> String -> String -> String -> Integer -> XMPP Integer

Files

Network/XMPP.hs +1/−0
Network/XMPP/Auth.hs +2/−1
Network/XMPP/Stanzas.hs +3/−2
Network/XMPP/XMLParse.hs +6/−0
XMPP.cabal +1/−1

Network/XMPP.hs view

@@ -48,6 +48,7 @@             , xmlPath'             , getAttr             , getCdata+            , allChilds             , xmlToString               -- * Stanza manipulation             , module Network.XMPP.Stanzas

Network/XMPP/Auth.hs view

@@ -10,8 +10,9 @@           -> String             -- ^Server (part after \@ in JID)           -> String             -- ^Password           -> String             -- ^Resource (unique identifier for this connection)+          -> Integer            -- ^Resource priority           -> XMPP Integer       -- ^Error number. Zero if authentication succeeded.-startAuth username server password resource = do+startAuth username server password resource priority = do   response <- sendIqWait server "get" [XML "query"                                        [("xmlns","jabber:iq:auth")]                                        [XML "username"

Network/XMPP/Stanzas.hs view

@@ -17,6 +17,7 @@                , iqSet                , handleVersion                , getErrorCode+               , hasNodeName                )     where @@ -103,8 +104,8 @@ --- Presence  -- |Send ordinary online presence.-sendPresence :: XMPP ()-sendPresence = sendStanza $ XML "presence" [] []+sendPresence :: Integer -> XMPP ()+sendPresence priority = sendStanza $ XML "presence" [] [XML "priority" [] [CData $ show priority]]  --- Stanza predicates

Network/XMPP/XMLParse.hs view

@@ -16,6 +16,7 @@     , Text.ParserCombinators.Parsec.parse     , Text.ParserCombinators.Parsec.Parser     , xmlPath'+    , allChilds     )     where @@ -208,3 +209,8 @@                                         _ -> False) els      in xmlPath' names (concat elems')++-----------------------------------------------+-- |Get all childs of the XML element+allChilds :: XMLElem -> [XMLElem]+allChilds (XML _ _ c) = c

XMPP.cabal view

@@ -1,5 +1,5 @@ Name:                XMPP-Version:             0.0.2+Version:             0.0.3 Synopsis:            XMPP library Category:            Network Description:         XMPP library