repositories
/
msc-thesis1617.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7b82824
)
fix example
author
Mart Lubbers
<mart@martlubbers.net>
Mon, 3 Jul 2017 14:55:27 +0000
(16:55 +0200)
committer
Mart Lubbers
<mart@martlubbers.net>
Mon, 3 Jul 2017 14:55:27 +0000
(16:55 +0200)
arch.example.tex
patch
|
blob
|
history
diff --git
a/arch.example.tex
b/arch.example.tex
index
0a05087
..
c905ead
100644
(file)
--- a/
arch.example.tex
+++ b/
arch.example.tex
@@
-39,7
+39,7
@@
thermos = makeDevice "nodeM" nodeMCU >>= connectDevice
>>= \stm-> sendTaskToDevice "sensing" sensing (nod, OnInterval 1000)
>>= \(st, [t])->sendTaskToDevice "acting" acting (stm, OnInterval 1000)
(\(BCValue s)->set (BCValue $ dynInt (dynamic s) > 0) (shareShare nod a))
- >>
| treturn ()
+ >>
* [OnAction (Action "Shutdown") $ always $ deleteDevice nod >>| deleteDevice stm >>| shutDown 0]
where
dynInt :: Dynamic -> Int
dynInt (a :: Int) = a