Включение внешних языков в программы на Haskell

[cblp]

   preserveObject p
   newForeignPtr p releaseObject

Если между этими строчками прилетит исключение, финализатор никогда не вызовется? С этим можно как-то бороться?

[cblp]

mask_ $ preserveObject x >>= p -> newForeignPtr p releaseObject

[qnikst]

для того, чтобы исключение не прилетело между операциями можно использовать маскировку от исключений:

mask_ $ do
   preserveObject p
   newForeignPtr p releaseObject