  git - annex assistant  control 
  - 
  - Copyright 2014   <  > 
  - 
  - Licensed under the GNU GPL version 3 or higher . 
 
 -
 - Copyright 2014 Joey Hess <>
 -
 - 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

  git - annex assistant  control 
  - 
  - Copyright 2014   <  > 
  - 
  - Licensed under the GNU GPL version 3 or higher . 
 
 -
 - Copyright 2014 Joey Hess <>
 -
 - 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
