@@ -304,7 +304,7 @@ module NN :
304
304
val unit : unit
305
305
external e : unit -> unit = " %identity"
306
306
module M = N .M
307
- module type T = sig end
307
+ module type T = N .T
308
308
exception E
309
309
type ext = N .ext = ..
310
310
type ext + = C
@@ -329,7 +329,7 @@ module Type :
329
329
val unit : unit
330
330
external e : unit -> unit = " %identity"
331
331
module M = N .M
332
- module type T = sig end
332
+ module type T = N .T
333
333
exception E
334
334
type ext = N .ext = ..
335
335
type ext + = C
@@ -352,7 +352,7 @@ module Module :
352
352
val unit : unit
353
353
external e : unit -> unit = " %identity"
354
354
module M = N .M
355
- module type T = sig end
355
+ module type T = N .T
356
356
exception E
357
357
type ext = N .ext = ..
358
358
type ext + = C
@@ -370,12 +370,12 @@ end
370
370
[%% expect{|
371
371
module Module_type :
372
372
sig
373
- module type U = sig end
373
+ module type U = N. T
374
374
type t = N .t
375
375
val unit : unit
376
376
external e : unit -> unit = " %identity"
377
377
module M = N .M
378
- module type T = sig end
378
+ module type T = N .T
379
379
exception E
380
380
type ext = N .ext = ..
381
381
type ext + = C
@@ -398,7 +398,7 @@ module Exception :
398
398
val unit : unit
399
399
external e : unit -> unit = " %identity"
400
400
module M = N .M
401
- module type T = sig end
401
+ module type T = N .T
402
402
exception E
403
403
type ext = N .ext = ..
404
404
type ext + = C
@@ -421,7 +421,7 @@ module Extension :
421
421
val unit : unit
422
422
external e : unit -> unit = " %identity"
423
423
module M = N .M
424
- module type T = sig end
424
+ module type T = N .T
425
425
exception E
426
426
type ext = N .ext = ..
427
427
type ext + = C
@@ -444,7 +444,7 @@ module Class :
444
444
val unit : unit
445
445
external e : unit -> unit = " %identity"
446
446
module M = N .M
447
- module type T = sig end
447
+ module type T = N .T
448
448
exception E
449
449
type ext = N .ext = ..
450
450
type ext + = C
@@ -467,7 +467,7 @@ module Class_type :
467
467
val unit : unit
468
468
external e : unit -> unit = " %identity"
469
469
module M = N .M
470
- module type T = sig end
470
+ module type T = N .T
471
471
exception E
472
472
type ext = N .ext = ..
473
473
type ext + = C
0 commit comments