zaphar/ucg
1
0
Fork 0
mirror of https://github.com/zaphar/ucg.git synced 2025-07-22 18:19:54 -04:00
Code Issues Packages Projects Releases Wiki Activity

REFACTOR: simplify the base_type_of function.

Browse Source
This commit is contained in:
Jeremy Wall 2019-02-04 20:30:06 -06:00
parent b571ead599
commit ad7f2d22a0
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
std/schema.ucg
View File

@ -11,13 +11,11 @@ let base_types = [
"module",
];
let base_type_reducer = func (acc, f) => select (acc.val is f), f, {
// Computes the base type of a value.
let base_type_of = func (val) => reduce(func (acc, f) => select (acc.val is f), f, {
true = acc{typ = f},
false = acc,
};
// Computes the base type of a value.
let base_type_of = func (val) => reduce(base_type_reducer, {val=val, typ="null"}, base_types).typ;
}, {val=val, typ="null"}, base_types).typ;
// Turns any schema check module into a compile failure.
// The module must export the computed value as the result field.