UNPKG

wonder.js

Version:
27 lines (21 loc) 1.1 kB
'use strict'; var Caml_array = require("bs-platform/lib/js/caml_array.js"); var NameService$Wonderjs = require("../../../primitive/name/NameService.js"); var RecordGeometryMainService$Wonderjs = require("./RecordGeometryMainService.js"); function getName(geometry, state) { return NameService$Wonderjs.getName(geometry, RecordGeometryMainService$Wonderjs.getRecord(state)[/* nameMap */20]); } function unsafeGetName(geometry, state) { return NameService$Wonderjs.unsafeGetName(geometry, RecordGeometryMainService$Wonderjs.getRecord(state)[/* nameMap */20]); } function setName(geometry, name, state) { var record = RecordGeometryMainService$Wonderjs.getRecord(state); var newrecord = Caml_array.caml_array_dup(state); var newrecord$1 = Caml_array.caml_array_dup(record); newrecord[/* geometryRecord */23] = (newrecord$1[/* nameMap */20] = NameService$Wonderjs.setName(geometry, name, record[/* nameMap */20]), newrecord$1); return newrecord; } exports.getName = getName; exports.unsafeGetName = unsafeGetName; exports.setName = setName; /* NameService-Wonderjs Not a pure module */