diff options
Diffstat (limited to 'Assistant/NetMessager.hs')
| -rw-r--r-- | Assistant/NetMessager.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Assistant/NetMessager.hs b/Assistant/NetMessager.hs index 08490e005..8895cb7db 100644 --- a/Assistant/NetMessager.hs +++ b/Assistant/NetMessager.hs @@ -15,14 +15,14 @@ import Control.Concurrent.MSampleVar sendNetMessage :: NetMessage -> Assistant () sendNetMessage m = - (atomically . flip writeTChan m) <<~ (netMessages . netMessagerControl) + (atomically . flip writeTChan m) <<~ (netMessages . netMessager) waitNetMessage :: Assistant (NetMessage) -waitNetMessage = (atomically . readTChan) <<~ (netMessages . netMessagerControl) +waitNetMessage = (atomically . readTChan) <<~ (netMessages . netMessager) notifyNetMessagerRestart :: Assistant () notifyNetMessagerRestart = - flip writeSV () <<~ (netMessagerRestart . netMessagerControl) + flip writeSV () <<~ (netMessagerRestart . netMessager) waitNetMessagerRestart :: Assistant () -waitNetMessagerRestart = readSV <<~ (netMessagerRestart . netMessagerControl) +waitNetMessagerRestart = readSV <<~ (netMessagerRestart . netMessager) |