blob: b3bccdc62a730815b36c64f07405f48bba9909e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module Main where
import Control.Exception
import GHC.Exception
import GHC.IO
import System.IO.Unsafe
data CustomException = CustomException deriving (Show)
instance Exception CustomException
main :: IO ()
main = do
catch
(throwExceptionInScrutinee 1 >> pure ())
printBacktraces
where
printBacktraces = putStr . pprBacktraces
-- Force creation of Stg stack return frames for IPE based backtraces.
throwExceptionInScrutinee :: Int -> IO Int
throwExceptionInScrutinee deepness = case unsafePerformIO $ scrutinee deepness of
-- Due the the thrown exception, the cases below are never hit!
0 -> pure 42
i -> pure i
where
scrutinee :: Int -> IO Int
scrutinee 0 = throwIOWithIPEStack CustomException
scrutinee n = scrutinee $ n - 1
|
