mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

rename

Browse source
This commit is contained in:
Joey Hess 2012-11-08 14:06:43 -04:00
parent 0238e4ba07
commit 08916ef695
4 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Types/NetMessager.hs
View file

@ -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