Fix some Applicative-Monad stuff

Signed-off-by: Austin Seipp <austin@well-typed.com>