diff options
| author | joe <joe@jerkface.net> | 2014-02-14 18:20:51 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-02-14 18:20:51 -0500 |
| commit | fdd6100390a0c9e4d52cb068a093ea57b1ae0622 (patch) | |
| tree | fa6bb7a9d094cbb1d6ced30683ccd14618494882 /Presence/EventUtil.hs | |
| parent | 418798796f77f1fa5cd2a52be62f8eb383cc25d8 (diff) | |
copyToChan keeps a stack of closers
Diffstat (limited to 'Presence/EventUtil.hs')
| -rw-r--r-- | Presence/EventUtil.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Presence/EventUtil.hs b/Presence/EventUtil.hs index bdea9fa2..a1c48e33 100644 --- a/Presence/EventUtil.hs +++ b/Presence/EventUtil.hs | |||
| @@ -55,3 +55,6 @@ iqTypeError = "error" | |||
| 55 | 55 | ||
| 56 | tagName (EventBeginElement n _) = n | 56 | tagName (EventBeginElement n _) = n |
| 57 | tagName _ = "" | 57 | tagName _ = "" |
| 58 | |||
| 59 | closerFor (EventBeginElement n _) = EventEndElement n | ||
| 60 | closerFor _ = error "closerFor: unsupported event" | ||