Make `Task` a selective applicative functor

[flupe]

It is, I should finally make this available.
Although I may want to provide additional combinators for Task m Bool?