Remove TODOs with unused YAML witness 0.1 code

Author: sim642

src/witness/yamlWitness.ml

@@ -58,13 +58,6 @@ struct
       function_ = Some location_function;
     }
 
-  let invariant invariant: Invariant.t = {
-    string = invariant;
-    type_ = "assertion";
-    format = "C";
-  }
-  (* TODO: remove above? *)
-
   (* TODO: remove primes from name *)
   let location_invariant' ~location ~(invariant): InvariantSet.Invariant.t = {
     invariant_type = LocationInvariant {
@@ -229,7 +222,6 @@ struct
     let cnt_loop_invariant = ref 0 in
     let cnt_location_invariant = ref 0 in
     let cnt_flow_insensitive_invariant = ref 0 in
-    (* TODO: precondition invariants? *)
 
     let invariant_global_nodes = lazy (R.ask_global InvariantGlobalNodes) in
 

src/witness/yamlWitnessType.ml

@@ -151,31 +151,6 @@ struct
     {file_name; file_hash; line; column; function_}
 end
 
-module Invariant =
-struct
-  type t = {
-    string: string;
-    type_: string;
-    format: string;
-  }
-  [@@deriving eq, ord, hash]
-
-  let to_yaml {string; type_; format} =
-    `O [
-      ("string", `String string);
-      ("type", `String type_);
-      ("format", `String format);
-    ]
-
-  let of_yaml y =
-    let open GobYaml in
-    let+ string = y |> find "string" >>= to_string
-    and+ type_ = y |> find "type" >>= to_string
-    and+ format = y |> find "format" >>= to_string in
-    {string; type_; format}
-end
-(* TODO: remove above things? *)
-
 module InvariantSet =
 struct
   module LoopInvariant =