changes to Combinators.hs