repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add example
[mTask.git]
/
Tasks
/
Examples.icl
diff --git
a/Tasks/Examples.icl
b/Tasks/Examples.icl
index
103862c
..
b0ae530
100644
(file)
--- a/
Tasks/Examples.icl
+++ b/
Tasks/Examples.icl
@@
-50,7
+50,7
@@
ledtOff :: UserLED -> Main (ByteCode () Stmt)
ledtOff d = {main = ledOff (lit d) :. noOp}
readDPin :: DigitalPin -> Main (ByteCode () Stmt)
ledtOff d = {main = ledOff (lit d) :. noOp}
readDPin :: DigitalPin -> Main (ByteCode () Stmt)
-readDPin d = sds \pin=False In {main=pin =. digitalRead d :. noOp}
+readDPin d = sds \pin=False In {main=pin =. digitalRead d :.
pub pin :.
noOp}
ledSelection :: Task UserLED
ledSelection = enterInformation "Select LED" []
ledSelection :: Task UserLED
ledSelection = enterInformation "Select LED" []