haskell - 处理 SomeException 被忽略

Question

我有一个常用的 haskell 代码，它读取文件并处理任何异常:

handle ((\_->return "ERROR") :: SomeException -> IO String) $ readFile "file.txt"

当我尝试读取错误的编码文件时，我总是会收到错误消息:

*** Exception: file.txt: hGetContents: invalid argument (invalid byte sequence)

并且程序不会进入我的异常处理函数。我还尝试使用 IOError 和 IOException 类型而不是 SomeException 但它没有任何改变。

如果我用句柄打开类似的文件并用代码读取它:

handle ((\_->return "ERROR") :: SomeException -> IO String) (hGetContents myHandle)

工作正常。

如何正确捕获由 readFile 传递的 hGetContents 抛出的异常？

Answer 1

您可以强制在捕获范围内读取整个字符串:

Control.Exception.handle
      ((\_ -> return "ERR") :: Control.Exception.SomeException -> IO String)
      (Prelude.readFile "file.txt" >>= \res -> res `deepseq` (pure res))
"ERR"