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

diff --git a/intro/lst/blink.icl b/intro/lst/blink.icl
index 2be0cdc..d1f5c3a 100644
--- 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