implementation module Devices.mTaskSerial

import Devices.mTaskDevice
import TTY
import iTasks

getmTaskSerialDevice :: Task MTaskResource
getmTaskSerialDevice = SerialDevice <$> enterTTYSettings

instance MTaskDuplex TTYSettings where
	synFun :: TTYSettings (Shared Channels) -> Task ()
	synFun settings channels = syncSerialChannel settings encode decode channels