repositories
/
phd-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
proofread chp 4
[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 :: (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
lowerSds \mInterval=iInterval/*\label{lst:intro:liftsds}*/
In fun \blink=(\st-> /*\label{lst:intro:blink_fro}*/
getSds mInterval