update
authorMart Lubbers <mart@martlubbers.net>
Sun, 9 Jul 2017 11:38:37 +0000 (13:38 +0200)
committerMart Lubbers <mart@martlubbers.net>
Sun, 9 Jul 2017 11:38:37 +0000 (13:38 +0200)
pres.system.tex

index f4c71ab..f45abbe 100644 (file)
@@ -438,8 +438,11 @@ blink =               makeDevice "stm32" stm32 >>= connectDevice
 where
        stm32   = makeDevice "Stm32"
                (SerialDevice {devicePath="/dev/ttyUSB0", baudrate=B9600, ...}
-       blinkTask = sds \led=LED1 In sds \x=True In
-               {main = IF x (ledOff led) (ledOn led) :. x =. Not x }
+       blinkTask = sds \led=LED1 In sds \x=True In {main =
+                       ledOn LED1 :.  ledOn LED2 :.  ledOn LED3 :.
+                       IF x (ledOff led) (ledOn led) :.
+                       x =. Not x
+               }
        
        \end{lstlisting}
 \end{frame}