repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
make program work with ui-reorg
[mTask.git]
/
mTaskSimulation.icl
diff --git
a/mTaskSimulation.icl
b/mTaskSimulation.icl
index
ae7ddfb
..
7c187f7
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,7
+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
+ 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 =