使用gi gtk和reactive banana捕获haskell异常

当然,我的应用程序是没有bug的,但是只是为了防止它包含任何我想放在通用异常捕捉器中的底部值,它至少会弹出一个消息框,告诉用户要报告什么类型的bug。因为我在用 gi-gtk 我认为初始化后的任何异常都将从 Gtk.main 函数,所以我的结束 main 函数看起来像这样:

let executeProgram =
     catch Gtk.main $ \e -> do
           reportThisBugDialog $ show (e :: SomeException)
           -- Code here to try to recover to a known good state
           executeProgram
executeProgram

我也在使用 Reactive Banana 如果相关,但这不在FRP规范之内。

但这并不能捕获任何异常。我放 error "Test Exception" 在“帮助关于”的处理程序中,我的程序刚退出,并向控制台打印了一条消息(当然,我的用户不会看到)。

当代码对GTK信号作出反应时,如何捕获代码中发生的异常?