1 implementation module Devices.mTaskSerial
3 import Devices.mTaskDevice
7 getmTaskSerialDevice :: Task MTaskResource
8 getmTaskSerialDevice = SerialDevice <$> enterTTYSettings
10 instance MTaskDuplex TTYSettings where
11 synFun :: TTYSettings (Shared Channels) -> Task ()
12 synFun settings channels = syncSerialChannel settings encode decode channels