repositories
/
phd-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
.
[phd-thesis.git]
/
intro
/
lst
/
blink.icl
diff --git
a/intro/lst/blink.icl
b/intro/lst/blink.icl
index
2be0cdc
..
cc7fc5c
100644
(file)
--- 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 :: (Shared sds Int) -> Main (MTask v Int)
| mtask, lowerSds v & RWShared sds & TC sds () Int Int
-intBlink iInterval = declarePin D
13
PMOutput \ledPin-> /*\label{lst:intro:declarePin}*/
+intBlink iInterval = declarePin D
2
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