upiates

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

diff --git a/intro/lst/blink.icl b/intro/lst/blink.icl
index 2be0cdc..d1f5c3a 100644 (file)
--- a/intro/lst/blink.icl
+++ b/intro/lst/blink.icl
@@ -19,7 +19,8 @@ where enterDevice :: Task TCPSettings
 
 intBlink :: (Shared sds Int) -> Main (MTask v Int)
        | mtask, lowerSds v & RWShared sds & TC sds () Int Int
-intBlink iInterval = declarePin D13 PMOutput \ledPin-> /*\label{lst:intro:declarePin}*/
+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}*/
                     getSds mInterval