anchor.diff:  open StormThrift
   open FsJson
   open System.IO
  +
  +let mutable private componentName = ""
  +
  +let getComponentName() = componentName
  +
  +let private setComponentName newName = 
  +         componentName <- newName
   
   //sumit the topology using nimbus thrift protocol
   let submit name (topology:StormThrift.StormTopology) host port uploadedJarLocation =
  
positive.code:     with ex ->
          Storm.stormLog (Storm.nestedExceptionTrace ex) Storm.LogLevel.Error
          printfn "%s" ex.Message
          1
  
negative.code:             do! Storm.processPid cfg.PidDir
              let scriptName = findComponent cfg
              let func = runMap |> Map.find scriptName
              setComponentName scriptName
              Storm.stormLog "running..." Storm.LogLevel.Info
              do! (func cfg)
          with ex ->
  