infer_clone/infer/src/quandary/QuandarySummary.ml

(*
 * Copyright (c) Facebook, Inc. and its affiliates.
 *
 * This source code is licensed under the MIT license found in the
 * LICENSE file in the root directory of this source tree.
 *)

(** summary type for Quandary taint analysis *)

open! IStd
module F = Format
module Java = AccessTree.Make (JavaTrace) (AccessTree.DefaultConfig)
module Clang = AccessTree.Make (ClangTrace) (AccessTree.DefaultConfig)

module AccessTree = struct
  type t = Java of Java.t | Clang of Clang.t

  let pp fmt = function
    | Java access_tree ->
        Java.pp fmt access_tree
    | Clang access_tree ->
        Clang.pp fmt access_tree
end

type t = AccessTree.t

let pp = AccessTree.pp