objective categorical abstract machine language personal data server
Set $type to collection if not included just in case
+14
-2
+14
-2
pegasus/lib/repository.ml
+14
-2
pegasus/lib/repository.ml
···
303
303
| None ->
304
304
Lwt.return ()
305
305
in
306
-
let%lwt cid = User_store.put_record t.db (`LexMap value) path in
306
+
let record_with_type : Lex.repo_record =
307
+
if StringMap.mem "$type" value then value
308
+
else StringMap.add "$type" (`String collection) value
309
+
in
310
+
let%lwt cid =
311
+
User_store.put_record t.db (`LexMap record_with_type) path
312
+
in
307
313
block_map := StringMap.add path cid !block_map ;
308
314
let refs =
309
315
Util.find_blob_refs value
···
357
363
| None ->
358
364
Lwt.return_unit
359
365
in
360
-
let%lwt new_cid = User_store.put_record t.db (`LexMap value) path in
366
+
let record_with_type : Lex.repo_record =
367
+
if StringMap.mem "$type" value then value
368
+
else StringMap.add "$type" (`String collection) value
369
+
in
370
+
let%lwt new_cid =
371
+
User_store.put_record t.db (`LexMap record_with_type) path
372
+
in
361
373
block_map := StringMap.add path new_cid !block_map ;
362
374
Lwt.return
363
375
(Update