X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=intro%2Flst%2Fblink.icl;h=cc7fc5c3176424f2c534f3acf645b5032b55a57a;hb=40c364b9de5d27b8afedcfd83d76499acc9e31af;hp=2be0cdc8c0368b04f65af4c5731d99ecfe78f4b7;hpb=20e228ca78d3de0bf35b4bcac769b119754d70f6;p=phd-thesis.git

diff --git a/intro/lst/blink.icl b/intro/lst/blink.icl
index 2be0cdc..cc7fc5c 100644
--- a/intro/lst/blink.icl
+++ b/intro/lst/blink.icl
@@ -19,7 +19,7 @@ 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