1 files changed, 14 insertions, 1 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index df2945d6..03a167ee 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -77,7 +77,6 @@ import ControlMaybe
 import LockedChan
 import PeerResolve
 
-
 peerport :: PortNumber
 peerport = 5269
 clientport :: PortNumber
@@ -212,6 +211,7 @@ enableClientHacks "irssi-xmpp" version replyto = do
               replyto
 enableClientHacks _ _ _ = return ()
 
+cacheMessageId :: Text -> TChan Stanza -> IO ()
 cacheMessageId id' replyto = do
     wlog $ "Caching id " ++ Text.unpack id'
     donevar <- atomically newEmptyTMVar
@@ -309,6 +309,7 @@ prettyPrint prefix =
 swapNamespace :: Monad m => Text -> Text -> ConduitM Event Event m ()
 swapNamespace old new = awaitForever (yield . swapit old new)
 
+swapit :: Text -> Text -> Event -> Event
 swapit old new (EventBeginElement n as) | nameNamespace n==Just old =
     EventBeginElement (n { nameNamespace = Just new }) as
 swapit old new (EventEndElement n) | nameNamespace n==Just old =
@@ -759,6 +760,7 @@ grokStanza "jabber:client" stanzaTag =
 mkname :: Text -> Text -> XML.Name
 mkname namespace name = (Name name (Just namespace) Nothing)
 
+makeInformSubscription :: Text -> Text -> Text -> Bool -> IO Stanza
 makeInformSubscription namespace from to approved = 
     stanzaFromList (PresenceInformSubscription approved)
       $ [ EventBeginElement (mkname namespace "presence")
@@ -768,6 +770,7 @@ makeInformSubscription namespace from to approved =
                                         else "unsubscribed" ]
         , EventEndElement (mkname namespace "presence")]
 
+makePresenceStanza :: Text -> Maybe Text -> JabberShow -> IO Stanza
 makePresenceStanza namespace mjid pstat = do
     stanzaFromList PresenceStatus { presenceShow = pstat
                                   , presencePriority = Nothing
@@ -794,6 +797,7 @@ makePresenceStanza namespace mjid pstat = do
       , EventContent (ContentText stat)
       , EventEndElement "{jabber:client}show" ]
     
+makeRosterUpdate :: Text -> Text -> [(Name, Text)] -> IO Stanza
 makeRosterUpdate tojid contact as = do
     let attrs = map (uncurry attr) as
     stanzaFromList Unrecognized
@@ -957,6 +961,7 @@ streamFeatures "jabber:server" =
 greet' :: Text -> Text -> [XML.Event]
 greet' namespace host = EventBeginDocument : greet'' namespace host
 
+greet'' :: Text -> Text -> [Event]
 greet'' namespace host =
     [ EventBeginElement (streamP "stream")
         [("from",[ContentText host])
@@ -1088,6 +1093,7 @@ goodbye =
     , EventEndDocument
     ]
 
+simulateChatError :: StanzaError -> Maybe Text -> [Event]
 simulateChatError err mfrom =
     [ EventBeginElement "{jabber:client}message"
          ((maybe id (\t->(attr "from" t:)) mfrom)
@@ -1108,10 +1114,13 @@ simulateChatError err mfrom =
     ]
 
 
+presenceSolicitation :: Text -> Text -> IO Stanza
 presenceSolicitation = presenceStanza (PresenceRequestSubscription True) "subscribe"
 
+presenceProbe :: Text -> Text -> IO Stanza
 presenceProbe = presenceStanza PresenceRequestStatus "probe"
 
+presenceStanza :: StanzaType -> Text -> Text -> Text -> IO Stanza
 presenceStanza stanza_type type_attr me jid =
     stanzaFromList stanza_type
         [ EventBeginElement "{jabber:server}presence"
@@ -1431,6 +1440,8 @@ data StanzaError
     | UnexpectedRequest
  deriving (Show,Enum,Ord,Eq)
 
+xep0086 ::
+    forall t t1. (Num t1, IsString t) => StanzaError -> (t, t1)
 xep0086 e =
   case e of
     BadRequest            -> ("modify", 400)
@@ -1482,10 +1493,12 @@ errorText e =
     UndefinedCondition    -> "Undefined condition"
     UnexpectedRequest     -> "Unexpected request"
 
+eventContent :: Maybe [Content] -> Text
 eventContent cs = maybe "" (foldr1 (<>) . map content1) cs
             where content1 (ContentText t)   = t
                   content1 (ContentEntity t) = t
 
+errorTagLocalName :: forall a. Show a => a -> Text
 errorTagLocalName e = Text.pack . drop 1 $ do
     c <- show e
     if 'A' <= c && c <= 'Z'