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

diff --git a/intro/lst/blink.icl b/intro/lst/blink.icl
index cc7fc5c..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 D2 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