export function withFileInfoCache<A>(
  delay: number,
  action: (getInfo: (hash: number) => (path: string) => T.Task<FileInfo>) => T.Task<A>
): T.Task<A> {
  return delay === 0
    ? action(constant(getFileInfo))
    : T.bracket(initialize(delay), terminate, s => action(getAndRegisterInfo(s)));
}

export function withFdCache<A>(duration: number, action: (_: GetFd) => T.Task<A>): T.Task<A> {
  return duration === 0
    ? action(P.constant(getFdNothing))
    : T.bracket(initialize(duration), terminate, mfc => action(getFd(mfc)));
}

 it('#searchWith return Just if the key present and satisfy pred', function () {
   const mmap = MM.singleton(10, 'ten');
   assert.ok(P.isJust(MM.searchWith(10, P.constant(true), mmap)));
 });

export function apSecond<A, B>(fa: any, fb: any): any {
  return fa.map(constant(identity)).ap(fb) as Task<B>;
}

export function bracket_<A, B, C>(acquire: Task<A>, release: Task<B>, act: Task<C>): Task<C> {
  return bracket(acquire, constant(release), constant(act));
}

export function onException<A, B>(t: Task<A>, what: Task<B>): Task<A> {
  return bracketOnError(pure(void 0), constant(what), constant(t));
}

function override(): T.Task<(c: Cache) => Cache> {
  return T.pure(constant(HM.empty));
}