diff options
Diffstat (limited to 'Assistant/Types')
| -rw-r--r-- | Assistant/Types/NetMessager.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Types/NetMessager.hs b/Assistant/Types/NetMessager.hs index 163468744..77f2759b3 100644 --- a/Assistant/Types/NetMessager.hs +++ b/Assistant/Types/NetMessager.hs @@ -39,12 +39,12 @@ data NetMessage {- Something used to identify a specific client to send the message to. -} type ClientID = Text -data NetMessagerControl = NetMessagerControl +data NetMessager = NetMessager { netMessages :: TChan (NetMessage) , netMessagerRestart :: MSampleVar () } -newNetMessagerControl :: IO NetMessagerControl -newNetMessagerControl = NetMessagerControl +newNetMessager :: IO NetMessager +newNetMessager = NetMessager <$> atomically newTChan <*> newEmptySV |