Add Monad instnace for Concurrently

See https://github.com/simonmar/async/pull/18