39 lines
1.2 KiB
JavaScript
39 lines
1.2 KiB
JavaScript
// import { fnType } from "../metacircular.js";
|
|
// import {Function} from "../metacircular.js";
|
|
|
|
// // import {Typed} from "../typed.js";
|
|
|
|
// // import {Bool} from "../primitives/symbols.js";
|
|
// // import {deepEqual} from "../util.js";
|
|
// // import {Conformable, conformanceCheck} from "../typeclasses/conformable.js";
|
|
|
|
// // // Identity function
|
|
// // const idBoundToType = Symbol('idBoundToType');
|
|
|
|
// // const id = type => x => x;
|
|
// // const idFn = {name: "id", inType: Type, outType: {inType: Type, outType: Type}, fn: id};
|
|
// // const idIsConform = {
|
|
// // name: "isConform",
|
|
// // inType: idBoundToType,
|
|
// // outType: Bool,
|
|
// // fn: fn => deepEqual(fnIn(fn), fnOut(fn))
|
|
// // }
|
|
|
|
// // export const ModuleId = [
|
|
// // {i: idBoundToType, t: Type},
|
|
// // {i: idFn, t: Function},
|
|
// // ... makeTypedFnInOut({f: idBoundToType, inType: Type, outType: Type}),
|
|
|
|
// // {i: idBoundToType, t: Conformable},
|
|
// // {i: idIsConform, t: conformanceCheck},
|
|
// // ];
|
|
|
|
// // generates explicitly typed id-function
|
|
// export const makeIdFn = typ => {
|
|
// const Typ_to_Typ = fnType({in: typ, out: typ});
|
|
// const id = x => x;
|
|
// return {l:[
|
|
// {i: id , t: Typ_to_Typ},
|
|
// {i: Typ_to_Typ, t: Function},
|
|
// ]};
|
|
// };
|