repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
makefile
[mTask.git]
/
mTaskSimulation.icl
diff --git
a/mTaskSimulation.icl
b/mTaskSimulation.icl
index
d52fa9a
..
d28a4fe
100644
(file)
--- a/
mTaskSimulation.icl
+++ b/
mTaskSimulation.icl
@@
-3,7
+3,7
@@
implementation module mTaskSimulation
import iTasks
import gdynamic, gCons, GenEq, StdMisc, StdArray
import mTask
import iTasks
import gdynamic, gCons, GenEq, StdMisc, StdArray
import mTask
-derive class iTask Display
+
//
derive class iTask Display
eval :: (Main (Eval t p)) -> [String] | toString t
eval {main=(E f)} = [toString (fst (f Rd zero))]
eval :: (Main (Eval t p)) -> [String] | toString t
eval {main=(E f)} = [toString (fst (f Rd zero))]
@@
-74,6
+74,7
@@
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 =