如何在Haskell中捕获任意异常？

import Control.Exception (try, catch)

main :: IO ()
main = do
  result <- try (readFile "non-existent-file.txt")
  case result of
    Left ex -> putStrLn $ "Error: " ++ show ex
    Right content -> putStrLn $ "File content: " ++ content

import Control.Exception (try, catch)

main :: IO ()
main = do
  result <- try (readFile "non-existent-file.txt")
  case result of
    Left ex -> putStrLn $ "Error: " ++ show ex
    Right content -> putStrLn $ "File content: " ++ content

handleError :: IOException -> IO ()
handleError ex = putStrLn $ "Error: " ++ show ex

main' :: IO ()
main' = do
  catch (readFile "non-existent-file.txt") handleError