diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-04 23:58:44 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-11-05 00:02:04 -0500 |
| commit | 3e2a0aad66b7567c8ed2d11214724919790462d7 (patch) | |
| tree | a6ec378c7b0cc1498da7961702427002edd5b0d3 /Presence/Stanza/Parse.hs | |
| parent | e8d00e729f1d6737180210d018f78e4b2efd8a35 (diff) | |
Factored Stanza.Build out of XMPPServer.
Diffstat (limited to 'Presence/Stanza/Parse.hs')
| -rw-r--r-- | Presence/Stanza/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/Stanza/Parse.hs b/Presence/Stanza/Parse.hs index 50e1e25b..e2a9efdd 100644 --- a/Presence/Stanza/Parse.hs +++ b/Presence/Stanza/Parse.hs | |||
| @@ -18,7 +18,7 @@ import Control.Concurrent.STM.Util | |||
| 18 | import ControlMaybe (handleIO_, (<&>)) | 18 | import ControlMaybe (handleIO_, (<&>)) |
| 19 | import EventUtil | 19 | import EventUtil |
| 20 | import Nesting | 20 | import Nesting |
| 21 | import Stanza.Type | 21 | import Stanza.Types |
| 22 | 22 | ||
| 23 | -- | Identify an XMPP stanza based on the open-tag. | 23 | -- | Identify an XMPP stanza based on the open-tag. |
| 24 | grokStanza :: Text -> XML.Event -> NestingXML o IO (Maybe StanzaType) | 24 | grokStanza :: Text -> XML.Event -> NestingXML o IO (Maybe StanzaType) |