X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FExamples.icl;h=b0ae530e4cf548c4419380ffc9cd870aec8ecd51;hb=8246c6551faa818be7a58638dbbc2e521f21c454;hp=103862c36eb20d6b31874bd10382d9529b3e4210;hpb=feacd1b50fca9624284f8b8c22c26d7a8071515d;p=mTask.git

diff --git a/Tasks/Examples.icl b/Tasks/Examples.icl
index 103862c..b0ae530 100644
--- 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)
-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" []