Update to new source-region SourceRegion abstraction

This commit is contained in:
Yura Dupyn 2026-04-06 19:47:06 +02:00
parent 38b147c3e7
commit 909caaf7ac
12 changed files with 63 additions and 52 deletions

View file

@ -18,19 +18,19 @@ type Input = {
const validator: Validation<Input, Program.CreateFunction, DigithError> = letValidate(
(input) =>({
name: V.elseErr(validateNameRaw(input.raw_name), err =>({
payload: { tag: "Parse", err, src: sourceText(input.raw_name) },
payload: { tag: "Parse", err, src: sourceText(input.raw_name).fullRegion() },
ids: ["name"],
tags: ["footer"],
config: { title: "Function Name", display: "flat" },
})),
parameters: V.elseErr(validateParamsRaw(input.raw_params), err => ({
payload: { tag: "Parse", err, src: sourceText(input.raw_params) },
payload: { tag: "Parse", err, src: sourceText(input.raw_params).fullRegion() },
ids: ["params"],
tags: ["footer"],
config: { title: "Parameters", display: "flat" },
})),
body: V.elseErr(validateExprRaw(input.raw_body), err => ({
payload: { tag: "Parse", err, src: sourceText(input.raw_body) },
payload: { tag: "Parse", err, src: sourceText(input.raw_body).fullRegion() },
ids: ["body"],
tags: ["footer"],
config: { title: "Function Body", display: "flat" },