Skip to content

Commit

Permalink
Fix uses of include module type of
Browse files Browse the repository at this point in the history
Ensure that type equations are also propagated.
  • Loading branch information
dra27 committed Mar 10, 2018
1 parent d4b8ac8 commit 89a1bae
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
8 changes: 4 additions & 4 deletions src/core/opamCompat.mli
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ module String
= String
#else
: sig
include module type of String
include module type of struct include String end

val lowercase_ascii : string -> string
val uppercase_ascii : string -> string
Expand All @@ -26,7 +26,7 @@ module Char
= Char
#else
: sig
include module type of Char
include module type of struct include Char end

val lowercase_ascii: char -> char
end
Expand All @@ -37,7 +37,7 @@ module Printexc
= Printexc
#else
: sig
include module type of Printexc
include module type of struct include Printexc end

val raise_with_backtrace: exn -> raw_backtrace -> 'a
end
Expand All @@ -48,7 +48,7 @@ module Unix
= Unix
#else
: sig
include module type of Unix
include module type of struct include Unix end

val map_file : Unix.file_descr -> ?pos:int64 -> ('a, 'b) Bigarray.kind ->
'c Bigarray.layout -> bool -> int array ->
Expand Down
2 changes: 1 addition & 1 deletion src/format/opamTypesBase.mli
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,7 @@
basic OPAM types present in OpamTypes.ml *)
open OpamTypes

include module type of OpamCompat
include module type of struct include OpamCompat end

val string_of_std_path: std_path -> string
val std_path_of_string: string -> std_path
Expand Down
2 changes: 1 addition & 1 deletion src/solver/opamCudfSolver.mli
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,7 @@
relying on external solvers (aspcud, etc.). Used for calling-back below
Dose. *)

include module type of OpamCudfSolverSig
include module type of struct include OpamCudfSolverSig end

module Aspcud : S
module Aspcud_old : S
Expand Down

0 comments on commit 89a1bae

Please sign in to comment.