anchor.diff:  }
   
   [<DataContract>]
  +type SearchOptions = {
  +  [<field: DataMember(Name = SearchOptionLiteral.Strict)>]
  +  Strict: string
  +  [<field: DataMember(Name = SearchOptionLiteral.Similarity)>]
  +  Similarity: string
  +  [<field: DataMember(Name = SearchOptionLiteral.IgnoreArgStyle)>]
  +  IgnoreArgStyle: string
  +}
  +
  +[<DataContract>]
   type SearchInformation = {
     [<field: DataMember(Name = "target_assemblies")>]
     Targets: string []
     [<field: DataMember(Name = "search_options")>]
  -  RawOptions: Dictionary<string, string>
  +  RawOptions: SearchOptions
     [<field: DataMember(Name = "query")>]
     Query: string
   }
  
positive.code:   module SearchOptions =
  
      open Suave
  
      [<Literal>]
      let Strict = "strict"
  
      [<Literal>]
      let Similarity = "similarity"
  
      [<Literal>]
      let IgnoreArgStyle = "ignore_arg_style"
  
      let parse info =
        let update opt (KeyValue(name, value)) =
          match name with
          | Strict -> { opt with StrictQueryVariable = OptionStatus.parseOrDefault SearchOptions.defaultOptions.StrictQueryVariable value }
          | Similarity -> { opt with SimilaritySearching = OptionStatus.parseOrDefault SearchOptions.defaultOptions.SimilaritySearching value }
          | IgnoreArgStyle -> { opt with IgnoreArgumentStyle = OptionStatus.parseOrDefault SearchOptions.defaultOptions.IgnoreArgumentStyle value }
          | _ -> opt
        info.RawOptions
        |> Seq.fold update SearchOptions.defaultOptions
  
      let defaultRawOptions =
        let toString (x: OptionStatus) =
          match FSharpValue.GetUnionFields(x, typeof<OptionStatus>) with
          | case, _ -> case.Name.ToLower()
        Dictionary<string, string>(
          [
            (Strict, SearchOptions.defaultOptions.StrictQueryVariable)
            (Similarity, SearchOptions.defaultOptions.SimilaritySearching)
            (IgnoreArgStyle, SearchOptions.defaultOptions.IgnoreArgumentStyle)
          ]
          |> Seq.map (fun (name, x) -> (name, toString x))
          |> dict
        )
  
    let trySearch database info =
      let client = FSharpApiSearchClient(info.Targets, database)
  
negative.code: open System.Runtime.Serialization
  open Microsoft.FSharp.Reflection
  open FSharpApiSearch
  
  module private SearchOptionLiteral =
  
    [<Literal>]
    let Strict = "strict"
  
    [<Literal>]
    let Similarity = "similarity"
  
    [<Literal>]
    let IgnoreArgStyle = "ignore_arg_style"
  
  [<DataContract>]
  type FSharpApi = {
  