diff options
| author | joe <joe@jerkface.net> | 2014-02-17 11:48:44 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-02-17 11:48:44 -0500 |
| commit | e2ea71232ef6bda4dacd74de0f2b42000b9c7569 (patch) | |
| tree | 81870b155514e014f6e9ee9bc861d0c71994cfee | |
| parent | 38f7f68475502bc8b4ce8c6154865d52845b0c30 (diff) | |
oops cloneTChan
| -rw-r--r-- | Presence/XMPPServer.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index c0bede90..d58debea 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs | |||
| @@ -975,7 +975,6 @@ cloneTChan chan = do | |||
| 975 | contents <- chanContents' chan | 975 | contents <- chanContents' chan |
| 976 | chan2 <- dupTChan chan | 976 | chan2 <- dupTChan chan |
| 977 | mapM_ (writeTChan chan) contents | 977 | mapM_ (writeTChan chan) contents |
| 978 | mapM_ (writeTChan chan2) contents | ||
| 979 | return chan2 | 978 | return chan2 |
| 980 | where | 979 | where |
| 981 | chanContents' chan = do | 980 | chanContents' chan = do |