Hello Neil,
Wednesday, May 2, 2007, 7:00:05 PM, you wrote:
> {-# NOINLINE wrapIO #-}
> wrapIO x = unsafePerformIO (x >>= return)
-fno-cse ? it's usual company for unsafePerformIO+NOINLINE :)
--
Best regards,
Bulat mailto:Bulat.Ziganshin at gmail.com