Refactor: move tezos-micheline below tezos-base

src/lib_base/jbuild

@@ -9,6 +9,7 @@
                     -open Tezos_data_encoding
                     -open Tezos_error_monad
                     -open Tezos_rpc
+                    -open Tezos_micheline
                     -safe-string))
   (libraries (tezos-stdlib
               tezos-stdlib-lwt
@@ -16,6 +17,7 @@
               tezos-data-encoding
               tezos-error-monad
               tezos-rpc
+              tezos-micheline
               calendar
               ezjsonm
               mtime.clock.os))))

src/lib_base/protocol_environment.ml

@@ -67,6 +67,7 @@ module Make(Param : sig val name: string end)() = struct
     type error_category = [ `Branch | `Temporary | `Permanent ]
     include Error_monad.Make()
   end
+  module Micheline = Micheline
   module Logging = Logging.Make(Param)
 
   type error += Ecoproto_error of Error_monad.error list

src/lib_base/tezos-base.opam

@@ -14,6 +14,8 @@ depends: [
   "tezos-crypto"
   "tezos-data-encoding"
   "tezos-error-monad"
+  "tezos-micheline"
+  "tezos-rpc"
   "ezjsonm" { >= "0.5.0" }
   "calendar"
   "mtime" { >= "1.0.0" }

src/lib_base/tzPervasives.ml

@@ -13,6 +13,7 @@ include Tezos_data_encoding
 include Tezos_error_monad
 include Tezos_rpc
 include Tezos_crypto
+include Tezos_micheline
 
 module List = struct
   include List

src/lib_client_environment/environment.ml

@@ -11,7 +11,6 @@ module Make(Param : sig val name: string end)() = struct
 
   include Tezos_base.Protocol_environment.Make(Param)()
 
-  module Micheline = Micheline
   module Updater = struct
     include Fake_updater.Make(Fake_context)
     module type PROTOCOL =

src/lib_micheline/jbuild

@@ -8,11 +8,13 @@
     ;; External
     uutf
     ;; Internal
-    tezos-base
+    tezos-error-monad
+    tezos-data-encoding
     ))
   (flags (:standard -w -9+27-30-32-40@8
                     -safe-string
-                    -open Tezos_base__TzPervasives))))
+                    -open Tezos_error_monad
+                    -open Tezos_data_encoding))))
 
 (alias
  ((name runtest_indent)

src/lib_micheline/micheline_parser.ml

@@ -7,6 +7,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+open Error_monad
 open Micheline
 
 type 'a parsing_result = 'a * error list

src/lib_micheline/tezos-micheline.opam

@@ -9,7 +9,8 @@ license: "unreleased"
 depends: [
   "ocamlfind" { build }
   "jbuilder" { build & >= "1.0+beta15" }
-  "tezos-base"
+  "tezos-data-encoding"
+  "tezos-error-monad"
   "uutf"
 ]
 build: [

src/lib_protocol_updater/tezos_protocol_environment.ml

@@ -11,7 +11,6 @@ module Make(Param : sig val name: string end)() = struct
 
   include Tezos_base.Protocol_environment.Make(Param)()
 
-  module Micheline = Micheline
   module Updater = struct
     include Updater
     module type PROTOCOL =