anchor.diff:      with get() = 
         let sep = System.IO.Path.DirectorySeparatorChar
         sprintf "%s%c%s" this.ModuleStaticFilesFolder sep configurationName
  -
  -  member this.Orchestrator with get() = orchestrator
   
     member this.Verbs with get() = verbs
   
  
positive.code:             || name = System.String.Empty)) then
        failwith "Invalid module name"
  
    member this.Name = name
  
    member this.Title = title
  
    member this.Description = description
  
    member this.Browsable
      with get() = browsable
      and set(v) = browsable <- v
  
    member this.ModuleStaticFilesPath
      with get() =
        if isMain then Module.HomePath else Module.ModulesPath
  
    member this.ModuleStaticFilesFolder
      with get() =
        let sep = System.IO.Path.DirectorySeparatorChar
        if isMain then
          Module.HomePath
        else
          sprintf @"%s%c%s" Module.ModulesPath sep name
  
    member this.Orchestrator with get() = orchestrator
  
    member this.RegisterHttpEvent (pattern:string, ?filter:WebPart) = 
      let evt = HttpEvent()
      let wp = http_react(pattern, evt)
      let rwp = match filter with Some f -> f >=> wp | None -> wp
      this.Verbs.Add(rwp)
      evt.Publish
  
    member this.RegisterEvent<'T>(pattern:string) =
      let ewp, evt:WebPart*IEvent<'T> = createRemoteIEvent()
      let wp = regex pattern >=> ewp
      this.Verbs.Add(wp)
    
    member this.SendJsonMessage (data:Json, dest:System.Uri) =
      async {
  
negative.code: 
    member this.ModuleStaticFilesPath
      with get() =
        let sep = System.IO.Path.DirectorySeparatorChar
        if isMain then
          Module.HomePath
        else
          (sprintf "%s%cstatic" Module.ModulesPath sep)
  
    member this.ModuleStaticFilesFolder
      with get() =
  