Change Async dep to Async_unix

This removes a couple unnecessary dependencies.
arenadotio · May 6, 2020 · ac2fdac · ac2fdac
1 parent 28c3c56
commit ac2fdac
Show file tree

Hide file tree

Showing 8 changed files with 12 additions and 10 deletions.
diff --git a/dune-project b/dune-project
@@ -29,7 +29,7 @@
    (and
     :with-test
     (>= 1.0.1)))
-  async
+  async_unix
   bignum
   ppx_jane
   (iter

diff --git a/mssql.opam b/mssql.opam
@@ -11,7 +11,7 @@ bug-reports: "https://github.com/arenadotio/ocaml-mssql/issues"
 depends: [
   "alcotest" {with-test & >= "1.0.1"}
   "alcotest-async" {with-test & >= "1.0.1"}
-  "async"
+  "async_unix"
   "bignum"
   "ppx_jane"
   "iter" {>= "1.2"}

diff --git a/src/async_helper.ml b/src/async_helper.ml
@@ -1,4 +1,4 @@
-open Async
+open Async_unix
 
 (* Run a function in async without the caller needing to keep track.
    If we're already in Async's main thread, just run it, otherwise

diff --git a/src/client.ml b/src/client.ml
@@ -1,5 +1,6 @@
-open Core
-open Async
+open Core_kernel
+open Async_kernel
+open Async_unix
 open Freetds
 open Mssql_error
 

diff --git a/src/client.mli b/src/client.mli
@@ -1,4 +1,4 @@
-open Async
+open Async_kernel
 
 type t
 

diff --git a/src/dune b/src/dune
@@ -9,7 +9,7 @@ let preprocess =
 let () = Jbuild_plugin.V1.send @@ {|
 (library
  (public_name mssql)
- (libraries core async freetds iter bignum logs text)
+ (libraries core_kernel async_unix freetds iter bignum logs text)
  (preprocess
   (pps ppx_jane |} ^ preprocess ^ {|)))
 

diff --git a/src/test.mli b/src/test.mli
@@ -1,4 +1,5 @@
 (** Exposes functions to help with tests that use Mssql *)
+open Async_kernel
 
 (** Mssql db connection with test credentials *)
-val with_conn : (Client.t -> 'a Async.Deferred.t) -> 'a Async.Deferred.t
+val with_conn : (Client.t -> 'a Deferred.t) -> 'a Deferred.t
diff --git a/test/test_mssql.ml b/test/test_mssql.ml
@@ -1,6 +1,6 @@
 open Core
-open Poly
-open Async
+open Async_kernel
+open Async_unix
 module Row = Mssql.Row
 
 let test_select_and_convert () =