Devices/mTaskSerial.icl

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