Haskell bracket_ :: IO() -> IO()