Remove Library module

gpetiot · gpetiot · commit 58f15a6f067f · 2021-09-27T20:15:33.000+08:00
diff --git a/lib/mdx.ml b/lib/mdx.ml
@@ -25,7 +25,6 @@ module Cram = Cram
 module Deprecated = Deprecated
 module Document = Document
 module Toplevel = Toplevel
-module Library = Library
 module Ocaml_delimiter = Ocaml_delimiter
 module Part = Part
 module Block = Block
diff --git a/lib/mdx.mli b/lib/mdx.mli
@@ -29,7 +29,6 @@ module Cram = Cram
 module Deprecated = Deprecated
 module Document = Document
 module Toplevel = Toplevel
-module Library = Library
 module Ocaml_delimiter = Ocaml_delimiter
 module Part = Part
 module Block = Block
diff --git a/test/lib/test_library.ml b/test/lib/test_library.ml
diff --git a/test/lib/test_library.mli b/test/lib/test_library.mli
diff --git a/test/lib/test_mdx_lib.ml b/test/lib/test_mdx_lib.ml
@@ -4,7 +4,6 @@ let () =
       Test_block.suite;
       Test_label.suite;
       Test_dep.suite;
-      Test_library.suite;
       Test_ocaml_delimiter.suite;
       Test_syntax.suite;
       Test_util.suite;
diff --git a/test/lib/testable.ml b/test/lib/testable.ml
@@ -20,17 +20,6 @@ let ocaml_delimiter =
   in
   Alcotest.testable pp ( = )
 
-let library_set =
-  let open Mdx.Library in
-  let equal = Set.equal in
-  let pp fmt set =
-    let l = Set.elements set in
-    Fmt.string fmt "[ ";
-    Fmt.(list ~sep:(const string "; ") pp) fmt l;
-    Fmt.string fmt " ]"
-  in
-  Alcotest.testable pp equal
-
 let block = Alcotest.testable Mdx.Block.dump ( = )
 
 let header = Alcotest.testable Mdx.Block.Header.pp ( = )
diff --git a/test/lib/testable.mli b/test/lib/testable.mli
@@ -4,8 +4,6 @@ val msg : [ `Msg of string ] Alcotest.testable
 
 val ocaml_delimiter : Mdx.Ocaml_delimiter.t Alcotest.testable
 
-val library_set : Mdx.Library.Set.t Alcotest.testable
-
 val block : Mdx.Block.t Alcotest.testable
 
 val header : Mdx.Block.Header.t Alcotest.testable
