summaryrefslogtreecommitdiff
path: root/Assistant/RemoteControl.hs
blob: 1016f1169ba3045be46171f9fb8dd9550f646506 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{- git-annex assistant RemoteDaemon control
 -
 - Copyright 2014 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Assistant.RemoteControl (
	sendRemoteControl,
	RemoteDaemon.Consumed(..)
) where

import Assistant.Common
import qualified RemoteDaemon.Types as RemoteDaemon

import Control.Concurrent

sendRemoteControl :: RemoteDaemon.Consumed -> Assistant ()
sendRemoteControl msg = do
	clicker <- getAssistant remoteControl
	liftIO $ writeChan clicker msg