You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 3775 Reporter: administrator Status: closed Resolution: not a bug Priority: normal Severity: minor Category: ~DO NOT USE (was: OCaml general) Has duplicate:#5302
Bug description
Full_Name: Daniel Weil
Version: 3.08.3
OS: Win32
Submission from: 211.121.39-62.rev.gaoland.net (62.39.121.211)
This bug was previously submitted and considered as "not a bug".
I re-submit it with a simpler example :
module Make = functor (X: sig
type 'a t
end) ->
struct
type attr = Bidon
type obj = attr X.t
end
module Obj = struct
module M = struct
type 'a t = 'a
end
module X = Make (M)
end
module Obj' = Obj
let f = fun (x:Obj.X.obj)-> (x:Obj'.X.obj)
This program is refused because the signature of module "Obj" is
module Obj :
sig
module M : sig type 'a t = 'a end
module X : sig type attr = Make(M).attr = Bidon type obj = attr M.t end
end
I Think that the strenghening if module Obj.X is too strong, signature of module
Obj should just be (the alias to the functor application "= Make(M).attr" does
not look necessary)
module Obj :
sig
module M : sig type 'a t = 'a end
module X : sig type attr = Bidon type obj = attr M.t end
end
The text was updated successfully, but these errors were encountered:
Original bug ID: 3775
Reporter: administrator
Status: closed
Resolution: not a bug
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)
Has duplicate: #5302
Bug description
Full_Name: Daniel Weil
Version: 3.08.3
OS: Win32
Submission from: 211.121.39-62.rev.gaoland.net (62.39.121.211)
This bug was previously submitted and considered as "not a bug".
I re-submit it with a simpler example :
module Make = functor (X: sig
type 'a t
end) ->
struct
type attr = Bidon
type obj = attr X.t
end
module Obj = struct
module M = struct
type 'a t = 'a
end
module X = Make (M)
end
module Obj' = Obj
let f = fun (x:Obj.X.obj)-> (x:Obj'.X.obj)
This program is refused because the signature of module "Obj" is
module Obj :
sig
module M : sig type 'a t = 'a end
module X : sig type attr = Make(M).attr = Bidon type obj = attr M.t end
end
I Think that the strenghening if module Obj.X is too strong, signature of module
Obj should just be (the alias to the functor application "= Make(M).attr" does
not look necessary)
module Obj :
sig
module M : sig type 'a t = 'a end
module X : sig type attr = Bidon type obj = attr M.t end
end
The text was updated successfully, but these errors were encountered: