Joeri Exelmans
8eec5b9239
big part of the code base still needs to be 'ported' to the updated type constructors.
54 lines
1.3 KiB
JavaScript
54 lines
1.3 KiB
JavaScript
// Product-type (also called: pair, tuple)
|
|
|
|
// A Product-type always has only two fields, called "left" and "right".
|
|
// Product-types of more fields (called Structs) can be constructed by nesting Product-types.
|
|
|
|
import { makeGeneric } from "../generics/generics.js";
|
|
import { GenericType, Type } from "../primitives/types.js";
|
|
import { typedFnType } from "./types.js";
|
|
import { prodType } from "./types.js";
|
|
|
|
// In JS, all products are encoded in the same way:
|
|
export const newProduct = l => r => ({l, r});
|
|
export const getLeft = product => product.l;
|
|
export const getRight = product => product.r;
|
|
|
|
export const ModuleProduct = {l: [
|
|
// binary type constructor
|
|
// Type -> Type -> Type
|
|
...typedFnType(prodType, fnType =>
|
|
fnType
|
|
(Type)
|
|
(fnType
|
|
(Type)
|
|
(Type)
|
|
)
|
|
),
|
|
|
|
// a -> b -> (a, b)
|
|
...typedFnType(newProduct, fnType =>
|
|
makeGeneric((a, b) =>
|
|
fnType
|
|
(a)
|
|
(fnType
|
|
(b)
|
|
(prodType(() => a)(() => b))
|
|
)
|
|
), GenericType),
|
|
|
|
// (a, b) -> a
|
|
...typedFnType(getLeft, fnType =>
|
|
makeGeneric((a, b) =>
|
|
fnType
|
|
(prodType(() => a)(() => b))
|
|
(a)
|
|
), GenericType),
|
|
|
|
// (a, b) -> b
|
|
...typedFnType(getRight, fnType =>
|
|
makeGeneric((a, b) =>
|
|
fnType
|
|
(prodType(() => a)(() => b))
|
|
(b)
|
|
), GenericType),
|
|
]};
|