[GHC] #11372: Loopification does not trigger for IO even if it could