process many comments

[phd-thesis.git] / intro / lst / blink.icl

diff --git a/intro/lst/blink.icl b/intro/lst/blink.icl
index aedf0b2..10b1142 100644 (file)
--- a/intro/lst/blink.icl
+++ b/intro/lst/blink.icl
@@ -14,8 +14,9 @@ interactiveBlink = enterDevice/*\label{lst:intro_enterDevice}*/
                    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
@@ -24,8 +25,8 @@ 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