Update to new source-region SourceRegion abstraction
This commit is contained in:
parent
38b147c3e7
commit
909caaf7ac
12 changed files with 63 additions and 52 deletions
|
|
@ -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" },
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue