summaryrefslogtreecommitdiff
path: root/Assistant/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-08 14:06:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-08 14:06:43 -0400
commite146cc372b8daa70fa093c9f27cedf7188ce72fc (patch)
treee5fb8aa7619fd4d3c4129f4f6f21b728cb6d3e4c /Assistant/Types
parent7466500782b89ea4d1aa038b8243268e8e261821 (diff)
rename
Diffstat (limited to 'Assistant/Types')
-rw-r--r--Assistant/Types/NetMessager.hs6
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