This patch allows using non-pure version of shrink. I have used it in my mutiline tabbed layout (MTabbed.hs)