Cleanup

Signed-off-by: Sora Morimoto <[email protected]>

.github/workflows/workflow.yml

@@ -28,51 +28,16 @@ jobs:
         libev:
           - true
           - false
-        ppx:
-          - true
-        local-packages:
-          - |
-            *.opam
         include:
           - os: ubuntu-latest
             ocaml-compiler: ocaml-variants.5.2.0+options,ocaml-option-flambda,ocaml-option-musl,ocaml-option-static,ocaml-option-no-compression
             libev: false
-            ppx: true
-            local-packages: |
-              *.opam
           - os: macos-latest
-            ocaml-compiler: "5.2"
-            libev: true
-            ppx: true
-            local-packages: |
-              *.opam
-          - os: windows-latest
             ocaml-compiler: "5.2"
             libev: false
-            ppx: true
-            local-packages: |
-              *.opam
-          - os: ubuntu-latest
-            ocaml-compiler: "5.2"
-            libev: true
-            ppx: false
-            local-packages: |
-              *.opam
-              !lwt_ppx.opam
-          - os: macos-latest
-            ocaml-compiler: "5.2"
-            libev: true
-            ppx: false
-            local-packages: |
-              *.opam
-              !lwt_ppx.opam
           - os: windows-latest
             ocaml-compiler: "5.2"
             libev: false
-            ppx: false
-            local-packages: |
-              *.opam
-              !lwt_ppx.opam
 
     runs-on: ${{ matrix.os }}
 
@@ -84,37 +49,26 @@ jobs:
         uses: ocaml/setup-ocaml@v3
         with:
           ocaml-compiler: ${{ matrix.ocaml-compiler }}
-          opam-local-packages: ${{ matrix.local-packages }}
 
       - run: opam install conf-libev
         if: ${{ matrix.libev == true }}
 
-      - run: opam install lwt_react lwt --deps-only --with-test
-
-      - run: opam install lwt_ppx --deps-only --with-test
-        if: ${{ matrix.ppx == true }}
-
-      - run: opam exec -- dune build --only-packages lwt_react,lwt
+      - run: opam install . --deps-only --with-test
 
-      - run: opam exec -- dune build --only-packages lwt_ppx
-        if: ${{ matrix.ppx == true }}
+      - run: opam exec -- dune build
 
-      - run: opam exec -- dune runtest --only-packages lwt_react,lwt
+      - run: opam exec -- dune runtest --instrument-with bisect_ppx --force
 
-      - run: opam exec -- dune runtest --only-packages lwt_ppx
-        if: ${{ matrix.ppx == true }}
+      - run: opam exec -- bisect-ppx-report summary --per-file
 
   lint-opam:
     runs-on: ubuntu-latest
-
     steps:
       - name: Checkout tree
         uses: actions/checkout@v4
-
       - name: Set-up OCaml
         uses: ocaml/setup-ocaml@v3
         with:
           ocaml-compiler: "5.2"
           dune-cache: true
-
       - uses: ocaml/setup-ocaml/lint-opam@v3

docs/dune

@@ -1,3 +1,3 @@
 (documentation
  (package lwt)
-  (mld_files :standard))
+ (mld_files :standard))

dune-project

@@ -21,7 +21,8 @@
    "Shon Feder <[email protected]>")
  (depends
   (ocaml (>= 4.08))
-  (lwt (>= 5.3.0))))
+  (lwt (>= 5.3.0))
+  (bisect_ppx :with-test)))
 
 (package
  (name lwt_ppx)
@@ -30,6 +31,7 @@
   (ocaml (>= 4.08))
   (ppxlib (>= 0.16.0))
   (ppx_let :with-test)
+  (bisect_ppx :with-test)
   lwt))
 
 (package
@@ -39,7 +41,8 @@
   (ocaml (>= 4.08))
   (cppo (and :build (>= 1.1.0)))
   (lwt (>= 3.0.0))
-  (react (>= 1.0.0))))
+  (react (>= 1.0.0))
+  (bisect_ppx :with-test)))
 
 (package
  (name lwt)
@@ -58,6 +61,7 @@ synchronization primitives. Code can be run in parallel on an opt-in basis.
   (cppo (and :build (>= 1.1.0)))
   (ocamlfind (and :dev (>= 1.7.3-1)))
   (odoc (and :with-doc (>= 2.3.0)))
+  (bisect_ppx :with-test)
   dune-configurator
   ocplib-endian)
  (depopts base-threads base-unix conf-libev))

lwt.opam

@@ -25,6 +25,7 @@ depends: [
   "cppo" {build & >= "1.1.0"}
   "ocamlfind" {dev & >= "1.7.3-1"}
   "odoc" {with-doc & >= "2.3.0"}
+  "bisect_ppx" {with-test}
   "dune-configurator"
   "ocplib-endian"
 ]

lwt_ppx.opam

@@ -15,6 +15,7 @@ depends: [
   "ocaml" {>= "4.08"}
   "ppxlib" {>= "0.16.0"}
   "ppx_let" {with-test}
+  "bisect_ppx" {with-test}
   "lwt"
   "odoc" {with-doc}
 ]

lwt_react.opam

@@ -15,6 +15,7 @@ depends: [
   "cppo" {build & >= "1.1.0"}
   "lwt" {>= "3.0.0"}
   "react" {>= "1.0.0"}
+  "bisect_ppx" {with-test}
   "odoc" {with-doc}
 ]
 build: [

lwt_retry.opam

@@ -10,12 +10,14 @@ homepage: "https://github.com/ocsigen/lwt"
 doc: "https://ocsigen.org/lwt"
 bug-reports: "https://github.com/ocsigen/lwt/issues"
 depends: [
-  "dune" {>= "2.0"}
+  "dune" {>= "2.7"}
   "ocaml" {>= "4.08"}
   "lwt" {>= "5.3.0"}
+  "bisect_ppx" {with-test}
+  "odoc" {with-doc}
 ]
 build: [
-  ["dune" "subst"] {pinned}
+  ["dune" "subst"] {dev}
   [
     "dune"
     "build"

src/core/dune

@@ -1,21 +1,9 @@
-(* -*- tuareg -*- *)
-
-let preprocess =
-   match Sys.getenv "BISECT_ENABLE" with
-   | "yes" -> "(preprocess (pps bisect_ppx))"
-   | _ -> ""
-   | exception _ -> ""
-
-let () = Jbuild_plugin.V1.send @@ {|
-
 (library
  (public_name lwt)
  (synopsis "Monadic promises and concurrent I/O")
  (wrapped false)
- |} ^ preprocess ^ {|
- (flags (:standard -w +A-29)))
+ (instrumentation
+  (backend bisect_ppx)))
 
 (documentation
  (package lwt))
-
-|}

src/ppx/dune

@@ -1,22 +1,10 @@
-(* -*- tuareg -*- *)
-
-let bisect_ppx =
-  match Sys.getenv "BISECT_ENABLE" with
-  | "yes" -> "bisect_ppx"
-  | _ -> ""
-  | exception _ -> ""
-
-let () = Jbuild_plugin.V1.send @@ {|
-
 (library
- (name ppx_lwt)
  (public_name lwt_ppx)
  (synopsis "Lwt PPX syntax extension")
- (modules ppx_lwt)
  (libraries ppxlib)
  (ppx_runtime_libraries lwt)
  (kind ppx_rewriter)
- (preprocess (pps ppxlib.metaquot|} ^ bisect_ppx ^ {|))
- (flags (:standard -w +A-4)))
-
-|}
+ (preprocess
+  (pps ppxlib.metaquot))
+ (instrumentation
+  (backend bisect_ppx)))

src/react/dune

@@ -1,19 +1,7 @@
-(* -*- tuareg -*- *)
-
-let preprocess =
-   match Sys.getenv "BISECT_ENABLE" with
-   | "yes" -> "(preprocess (pps bisect_ppx))"
-   | _ -> ""
-   | exception _ -> ""
-
-let () = Jbuild_plugin.V1.send @@ {|
-
 (library
  (public_name lwt_react)
  (synopsis "Reactive programming helpers for Lwt")
  (wrapped false)
  (libraries lwt react)
- |} ^ preprocess ^ {|
- (flags (:standard -w +A)))
-
-|}
+ (instrumentation
+  (backend bisect_ppx)))

src/retry/dune

@@ -1,19 +1,7 @@
-(* -*- tuareg -*- *)
-
-let preprocess =
-   match Sys.getenv "BISECT_ENABLE" with
-   | "yes" -> "(preprocess (pps bisect_ppx))"
-   | _ -> ""
-   | exception _ -> ""
-
-let () = Jbuild_plugin.V1.send @@ {|
-
 (library
  (public_name lwt_retry)
  (synopsis "A utility for retrying Lwt computations")
  (wrapped false)
  (libraries lwt lwt.unix)
- |} ^ preprocess ^ {|
- (flags (:standard -w +A)))
-
-|}
+ (instrumentation
+  (backend bisect_ppx)))