Using DeepSeq for exception ordering

[Albert Y. C. Lai]

On 12-11-12 11:34 AM, Simon Marlow wrote:
> Did you try -fpedantic-bottoms?

Interesting option. And furthermore its doc refers to -fno-state-hack, too.

import Control.DeepSeq
import Control.Exception

main = do
   evaluate (('a' : error "A") `deepseq` putStrLn "hi")
   throwIO (userError "B")

-O -fpedantic-bottoms => B
-O -fno-state-hack => A
-O both => A

7.4.2, linux 32-bit x86