added to apply.hs