anchor.diff:              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 ->
  
positive.code:     with ex ->
          Storm.stormLog (Storm.nestedExceptionTrace ex) Storm.LogLevel.Error
          printfn "%s" ex.Message
          1
  
negative.code: 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 =
  