override streamInstance#foldMap

it should work if stream is infinite
infinite stream foldRight & foldMap test
Handle foldMap of infinite streams; test. (#531)