Pointfree-ify a bit.