repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update spec to support normal io pins
[mTask.git]
/
mTaskSimulation.icl
diff --git
a/mTaskSimulation.icl
b/mTaskSimulation.icl
index
f4835be
..
3f88aee
100644
(file)
--- a/
mTaskSimulation.icl
+++ b/
mTaskSimulation.icl
@@
-77,7
+77,6
@@
defEval2 v f =
instance sds Eval where
sds f = defEval f
con f = defEval f
instance sds Eval where
sds f = defEval f
con f = defEval f
- pub _ = undef
defEval :: ((Eval t p)->In t (Main (Eval u q))) -> (Main (Eval u q)) | dyn t
defEval f =
defEval :: ((Eval t p)->In t (Main (Eval u q))) -> (Main (Eval u q)) | dyn t
defEval f =
@@
-155,7
+154,7
@@
instance writePinD AnalogPin where
// ----- Interactive Simulation ----- //
// ----- Interactive Simulation ----- //
-derive class iTask
DigitalPin, AnalogPin, Dyn, StateInterface, DisplayVar, Pin
+derive class iTask
StateInterface, DisplayVar
simulate :: (Main (Eval a p)) -> Task ()
simulate {main=(E f)} = setup zero where
simulate :: (Main (Eval a p)) -> Task ()
simulate {main=(E f)} = setup zero where