Add allowInterrupt :: IO () (#4810)