Commit bebbc18a authored by Rinus Plasmeijer's avatar Rinus Plasmeijer
Browse files

*** empty log message ***

parent 8f6fb4d2
...@@ -40,6 +40,7 @@ derive gForm WorkflowProcess ...@@ -40,6 +40,7 @@ derive gForm WorkflowProcess
derive gUpd WorkflowProcess derive gUpd WorkflowProcess
derive gPrint WorkflowProcess derive gPrint WorkflowProcess
derive gParse WorkflowProcess derive gParse WorkflowProcess
derive gerda WorkflowProcess
derive read WorkflowProcess derive read WorkflowProcess
derive write WorkflowProcess derive write WorkflowProcess
...@@ -64,6 +65,9 @@ where ...@@ -64,6 +65,9 @@ where
myread :: !*Write -> *Read .String myread :: !*Write -> *Read .String
myread pst = read{|*|} pst myread pst = read{|*|} pst
gerda{|Dynamic|} = abort "Cannot yet store a Dynamic in a Database\n"
gerda{|TCl|} ga = abort "Cannot yet store an iTask of type TCL in a Database\n"
import DrupBasic import DrupBasic
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment