anchor.diff:      return { Owner = owner; Project = project }
     }
   
  -  let parseGitLabIdentifier (x : string) = 
  +  let parseGitLabIdentifier (x : string) =
       match run (gitLabPackageIdentifierParser .>> CharParsers.eof) x with
       | Success(result, _, _) -> Result.Ok result
       | Failure(error, _, _) -> Result.Error error
  
positive.code:     return { Owner = owner; Project = project }
    }
  
    let parseBitBucketIdentifier (x : string) = 
      match run (bitBucketPackageIdentifierParser .>> CharParsers.eof) x with
      | Success(result, _, _) -> Result.Ok result
      | Failure(error, _, _) -> Result.Error error
  
negative.code:     <|> (gitLabPackageIdentifierParser |>> PackageIdentifier.GitLab)
      <|> (adhocPackageIdentifierParser |>> PackageIdentifier.Adhoc)
  
    let parse (x : string) : Result<PackageIdentifier, string> =
      match run (parser .>> CharParsers.eof) x with
      | Success(result, _, _) -> Result.Ok result
      | Failure(error, _, _) -> Result.Error error
  