anchor.diff:          let json = System.Text.Encoding.UTF8.GetString ctx.request.rawForm
           let result = eventToCommand (jsonToCommentCommitEvent json)
           let comment = toYoutrackComment result
  -        issueManagement.ApplyCommand(result.TicketId, "", comment, false, result.User)
  +        let runas = match result.User with
  +                    | IsYoutrackUser user -> user
  +                    | _ -> null
  +        issueManagement.ApplyCommand(result.TicketId, "", comment, false, runas)
           return! (OK "Comment" ctx)
       }
   
  
positive.code: open Suave.Successful
  
  open YouTrackSharp.Infrastructure
  open YouTrackSharp.Issues
  
  open YoutrackGitlab.WebHooks
  
negative.code:       Path = path
        UseSsl = useSsl }
  
  let connection =
      let connection = new Connection(settings.Host,settings.Port, settings.UseSsl, settings.Path)
      connection.Authenticate(settings.Username, settings.Password)
      connection
  
  let youtrackUsers =
      let usermanagement = new UserManagement(connection)
      Seq.map (fun (x:User) -> x.Username) (usermanagement.GetAllUsers())
  
  let (|IsYoutrackUser|_|) user =
      match Seq.contains user youtrackUsers with
      | true -> Some(user)
      | _ -> None
  
  let issueManagement = new IssueManagement(connection)
  
  let toYoutrackComment command =
      let beginning = sprintf "New comment on commit in gitlab from %s:\n\n" command.User
  