>>= \(st, [t:_])->forever (
updateSharedInformation "Which led to blink" [] (shareShare stm t)
) >>* [OnAction (Action "Shutdown") $ always
>>= \(st, [t:_])->forever (
updateSharedInformation "Which led to blink" [] (shareShare stm t)
) >>* [OnAction (Action "Shutdown") $ always
where
stm32 = makeDevice "Stm32"
(SerialDevice {devicePath="/dev/ttyUSB0", baudrate=B9600, ...}
where
stm32 = makeDevice "Stm32"
(SerialDevice {devicePath="/dev/ttyUSB0", baudrate=B9600, ...}