rowan/kuebiko
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

curry some functions. massaman or panang?

Browse source
This commit is contained in:
Rowan 2025-04-16 22:34:46 -05:00
parent 628d0ef80b
commit 484502213e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/cond.js
View file

@ -18,7 +18,7 @@ export const maybe = curry(
return result.isOk() ? result : succeed([], original)
})
export const not = parser => state => {
export const not = curry((parser, state) => {
const result = parser(state)
if (result.isOk()) {
@ -26,13 +26,13 @@ export const not = parser => state => {
} else {
return succeed([], state)
}
}
})
export const until = parser => state => {
export const until = curry((parser, state) => {
let result = ok(state)
while (result.isOk()) {
const [original, clone] = fork(state)
const [original, clone] = result.chain(fork)
result = result.chain(x => parser(clone))
if (result.isOk()) {
break
@ -42,7 +42,7 @@ export const until = parser => state => {
}
return result
}
})
export const skip = curry((parser, state) => {
})