windows - 无法在 Windows 上捕获 Haskell 异常

Question

当我在 ghci 上输入以下内容时，引发了异常:

Prelude> import Control.Exception
Prelude Control.Exception> readFile "test.txt" `catch` (const $ return "exception caught!" :: SomeException -> IO String)
"*** Exception: test.txt: hGetContents: invalid argument (invalid byte sequence)

我不明白为什么没有捕获异常。我在 Windows 7 上使用 stack ghci 命令运行上面的代码。(“test.txt”文件包含一些以 UTF8 编码的随机日文字母，但我希望无论如何都应该捕获异常)

谁能解释一下为什么？

Answer 1

因为 readFile 返回一个惰性的 String，它不会计算文件内容，直到它被使用，在这种情况下，当 ghci 打印它时。您可以通过强制评估其内容来捕获它。

import Control.Exception
import Control.DeepSeq
(readFile "test.txt" >>= evaluate . force) `catch` (const $ return "exception caught!" :: SomeException -> IO String)