Skip to content

Commit 0a1bf49

Browse files
garesgares
committed
wip
1 parent 69b274e commit 0a1bf49

File tree

4 files changed

+19
-19
lines changed

4 files changed

+19
-19
lines changed

‎src/API.ml‎

Lines changed: 15 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1065,19 +1065,23 @@ module Doc = struct
10651065
let show_ty_ast = ED.Conversion.show_ty_ast
10661066
end
10671067

1068-
let readback_int ~depth _ c s x = BuiltInData.int.Conversion.readback ~depth (new Conversion.ctx []) c s x
1069-
let readback_float ~depth _ c s x = BuiltInData.float.Conversion.readback ~depth (new Conversion.ctx []) c s x
1070-
let readback_string ~depth _ c s x = BuiltInData.string.Conversion.readback ~depth (new Conversion.ctx []) c s x
1068+
let readback_int ~depth h c s x = BuiltInData.int.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1069+
let readback_float ~depth h c s x = BuiltInData.float.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1070+
let readback_string ~depth h c s x = BuiltInData.string.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
10711071
let readback_list = BuiltInData.readback_list
1072-
let readback_loc ~depth _ c s x = BuiltInData.loc.Conversion.readback ~depth (new Conversion.ctx []) c s x
1073-
let readback_nominal ~depth _ c s x = BuiltInData.nominal.Conversion.readback ~depth (new Conversion.ctx []) c s x
1074-
1075-
let embed_int ~depth _ c s x = BuiltInData.int.Conversion.embed ~depth (new Conversion.ctx []) c s x
1076-
let embed_float ~depth _ c s x = BuiltInData.float.Conversion.embed ~depth (new Conversion.ctx []) c s x
1077-
let embed_string ~depth _ c s x = BuiltInData.string.Conversion.embed ~depth (new Conversion.ctx []) c s x
1072+
let readback_loc ~depth h c s x = BuiltInData.loc.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1073+
let readback_nominal ~depth h c s x = BuiltInData.nominal.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1074+
let readback_bool ~depth h c s x = BuiltInData.bool.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1075+
let readback_char ~depth h c s x = BuiltInData.char.Conversion.readback ~depth (new Conversion.ctx h#raw) c s x
1076+
1077+
let embed_int ~depth h c s x = BuiltInData.int.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
1078+
let embed_float ~depth h c s x = BuiltInData.float.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
1079+
let embed_string ~depth h c s x = BuiltInData.string.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
10781080
let embed_list = BuiltInData.embed_list
1079-
let embed_loc ~depth _ c s x = BuiltInData.loc.Conversion.embed ~depth (new Conversion.ctx []) c s x
1080-
let embed_nominal ~depth _ c s x = BuiltInData.nominal.Conversion.embed ~depth (new Conversion.ctx []) c s x
1081+
let embed_loc ~depth h c s x = BuiltInData.loc.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
1082+
let embed_nominal ~depth h c s x = BuiltInData.nominal.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
1083+
let embed_bool ~depth h c s x = BuiltInData.bool.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
1084+
let embed_char ~depth h c s x = BuiltInData.char.Conversion.embed ~depth (new Conversion.ctx h#raw) c s x
10811085
type context_description =
10821086
| C : ('a,'k,'c) Conversion.context -> context_description
10831087

‎src/API.mli‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1165,13 +1165,17 @@ module PPX : sig
11651165
val readback_list : ('a, 'c) Conversion.readback -> ('a list,'c) Conversion.readback
11661166
val readback_loc : (Ast.Loc.t, 'c) Conversion.readback
11671167
val readback_nominal : (RawData.constant, 'c) Conversion.readback
1168+
val readback_bool : (bool, 'h) Conversion.readback
1169+
val readback_char : (char, 'h) Conversion.readback
11681170

11691171
val embed_int : (int, 'c) Conversion.embedding
11701172
val embed_float : (float, 'c) Conversion.embedding
11711173
val embed_string : (string, 'c) Conversion.embedding
11721174
val embed_list : ('a, 'c) Conversion.embedding -> ('a list, 'c) Conversion.embedding
11731175
val embed_loc : (Ast.Loc.t, 'c) Conversion.embedding
11741176
val embed_nominal : (RawData.constant, 'c) Conversion.embedding
1177+
val embed_bool : (bool, 'h) Conversion.embedding
1178+
val embed_char : (char, 'h) Conversion.embedding
11751179

11761180
type context_description =
11771181
| C : ('a,'k,'c) Conversion.context -> context_description

‎src/builtin.ml‎

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1391,17 +1391,13 @@ module PPX = struct
13911391

13921392
let readback_pair = readback_pair
13931393
let readback_option = readback_option
1394-
let readback_bool ~depth _ c s x = bool.API.Conversion.readback ~depth (new Conversion.ctx []) c s x
1395-
let readback_char ~depth _ c s x = char.API.Conversion.readback ~depth (new Conversion.ctx []) c s x
13961394

13971395
let readback_triple = readback_triple
13981396
let readback_quadruple = readback_quadruple
13991397
let readback_quintuple = readback_quintuple
14001398

14011399
let embed_pair = embed_pair
14021400
let embed_option = embed_option
1403-
let embed_bool ~depth _ c s x = bool.API.Conversion.embed ~depth (new Conversion.ctx []) c s x
1404-
let embed_char ~depth _ c s x = char.API.Conversion.embed ~depth (new Conversion.ctx []) c s x
14051401

14061402
let embed_triple = embed_triple
14071403
let embed_quadruple = embed_quadruple

‎src/builtin.mli‎

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -60,17 +60,13 @@ module PPX : sig
6060

6161
val readback_pair : ('a, 'h) API.Conversion.readback -> ('b, 'h) API.Conversion.readback -> ('a * 'b, 'h) API.Conversion.readback
6262
val readback_option : ('a, 'h) API.Conversion.readback -> ('a option, 'h) API.Conversion.readback
63-
val readback_bool : (bool, 'h) API.Conversion.readback
64-
val readback_char : (char, 'h) API.Conversion.readback
6563

6664
val readback_triple : ('a, 'h) API.Conversion.readback -> ('b, 'h) API.Conversion.readback -> ('c, 'h) API.Conversion.readback -> ('a * 'b * 'c, 'h) API.Conversion.readback
6765
val readback_quadruple : ('a, 'h) API.Conversion.readback -> ('b, 'h) API.Conversion.readback -> ('c, 'h) API.Conversion.readback -> ('d, 'h) API.Conversion.readback -> ('a * 'b * 'c * 'd, 'h) API.Conversion.readback
6866
val readback_quintuple : ('a, 'h) API.Conversion.readback -> ('b, 'h) API.Conversion.readback -> ('c, 'h) API.Conversion.readback -> ('d, 'h) API.Conversion.readback -> ('e, 'h) API.Conversion.readback -> ('a * 'b * 'c * 'd * 'e, 'h) API.Conversion.readback
6967

7068
val embed_pair : ('a, 'h) API.Conversion.embedding -> ('b, 'h) API.Conversion.embedding -> ('a * 'b, 'h) API.Conversion.embedding
7169
val embed_option : ('a, 'h) API.Conversion.embedding -> ('a option, 'h) API.Conversion.embedding
72-
val embed_bool : (bool, 'h) API.Conversion.embedding
73-
val embed_char : (char, 'h) API.Conversion.embedding
7470

7571
val embed_triple : ('a, 'h) API.Conversion.embedding -> ('b, 'h) API.Conversion.embedding -> ('c, 'h) API.Conversion.embedding -> ('a * 'b * 'c, 'h) API.Conversion.embedding
7672
val embed_quadruple : ('a, 'h) API.Conversion.embedding -> ('b, 'h) API.Conversion.embedding -> ('c, 'h) API.Conversion.embedding -> ('d, 'h) API.Conversion.embedding -> ('a * 'b * 'c * 'd, 'h) API.Conversion.embedding

0 commit comments

Comments
 (0)