8 files changed, 15 insertions(+), 8 deletions(-)

M bin/dune
M lib/dune
M public/dune
M public/geohash.ml
M public/geohash.mli
R lib/geohash.ml => public/whitebox.ml
M test/dune
M test/geohash_test.ml

@@ 4,6 4,6 @@
 ; https://stackoverflow.com/a/53325230/349514
 (executable
   (name main)
-  (libraries lib)
+  (libraries lib geohash)
   ; (link_flags (:include link_flags.sexp))
 )

@@ 2,7 2,6 @@
   (name lib)
   (libraries
     tyre
-    optint
-  )
-  (public_name geohash.whitebox)
+   )
+  (public_name geohash_bin.lib)
 )

@@ 1,5 1,8 @@
 (library
   (name geohash)
-  (libraries lib)
+  (libraries
+    tyre
+    optint
+  )
   (public_name geohash)
 )

@@ 1,1 1,2 @@
-include Lib.Geohash
+module Whitebox = Whitebox
+include Whitebox

@@ 7,3 7,7 @@
 
   (** decode a geohash base32 string to a WGS84 coordinate region center,delta. *)
   val decode : string -> (((float * float) * (float * float)), char) result
+
+(**/**) (* hide Whitebox module *)
+module Whitebox : module type of Whitebox
+(**/**)

@@ 5,4 5,4 @@
    cgi_test
    route_test
  )
- (libraries lib))
+ (libraries geohash lib))

@@ 19,7 19,7 @@
  *)
 
 open Optint.Int63
-open Lib.Geohash
+open Geohash.Whitebox
 
 let assert_equals_int64 (test_name : string) (expected : t) (result : t) : 'a =
   Assert.assert_equals test_name to_string expected result