feature request: `between` and `surroundedBy` about parser-ts HOT 4 CLOSED

// <Term> ::= <Word> | 'NOT (' <Term> ')'
type Term =
  | { readonly tag: 'Word'; readonly value: string; }
  | { readonly tag: 'Not'; readonly value: Term; }

const textWithoutSpaces = pipe(
  many1(alphanum),
  map(chars => chars.join(''))
);
const Word: Parser<string, Term> = pipe(
  textWithoutSpaces,
  alt(() => doubleQuotedString),
  map((value) => ({ tag: 'Word', value }))
);

const braced = between(char('('), char(')')); // => Parser<string, string>

const NotWord = braced(Word); // ❌
// Argument of type 'Parser<string, Term>' is not assignable to parameter of type 'Parser<string, string>'

const between = <I, A>(left: Parser<I, A>, right: Parser<I, A>) => <B>(p: Parser<I, B>) => pipe(
  left,
  chain(() => p),
  chainFirst(() => right)
);

import { pipe } from 'fp-ts/lib/function'
import { chain, chainFirst, Parser } from 'parser-ts/lib/Parser'

export const between = <I, A>(left: Parser<I, A>, right: Parser<I, A>) => (
  parser: Parser<I, A>
): Parser<I, A> =>
  pipe(
    left,
    chain(() => parser),
    chainFirst(() => right)
  )

export const surroundedBy = <I, A>(bound: Parser<I, A>): ((parser: Parser<I, A>) => Parser<I, A>) =>
  between(bound, bound)