liftmTask (intBlink iInterval) dev/*\label{lst:intro_liftmtask}*/
-|| (Hint "Interval (ms)" @>> updateSharedInformation [] iInterval)/*\label{lst:intro_editor}*/
>>* [OnAction (Action "Stop") (always (return ()))]
-where enterDevice :: Task TCPSettings
- enterDevice = enterInformation [] <<@ Hint "Enter connection info"
+
+enterDevice :: Task TCPSettings
+enterDevice = enterInformation [] <<@ Hint "Enter connection info"
intBlink :: (Shared sds Int) -> Main (MTask v Int)
| mtask, lowerSds v & RWShared sds & TC sds () Int Int
+/*
+intBlink :: (Shared sds Int) -> Main (MTask v Int) | mtask v & ...
+*/
intBlink iInterval =
declarePin D2 PMOutput \ledPin-> /*\label{lst:intro:declarePin}*/
- lowerSds \mInterval=iInterval/*\label{lst:intro:liftsds}*/
- In fun \blink=(\st-> /*\label{lst:intro:blink_fro}*/
+ lowerSds \mInterval = iInterval/*\label{lst:intro:liftsds}*/
+ In fun \blink = (\st-> /*\label{lst:intro:blink_fro}*/
getSds mInterval
>>=. \i->delay i
>>|. writeD ledPin st