anchor.diff:      else
           if event.role = role
           then
  -            let event' = { event with executed = true; pending = false; }
  +            let event' = {
  +                event with
  +                    executed = Some DateTime.Now;
  +                    pending = false;
  +            }
               let state' = Map.add event.name event' state
               let notify relations commands =
                   Set.foldBack (
  
positive.code: module Workflow
  
  // The types of relations the events can know of
  type Relation =             // The internal string is a http address
  
negative.code:     printfn "============= Status =============="
      Map.iter (
          fun k v ->
              printfn "%s %s %s %s" (if v.executable then "->" else "| ") (if v.executed.IsSome then "x" else " ") k (if v.pending then "!" else "")
      ) state
  
  // Creates a new event
  