testsuite/tests/ghci.debugger/scripts/T8487.hs


1
2
3
4
5
6
7
8
9
10
11

import Control.Exception

f = do
  ma <- try $ evaluate a
  x <- case ma of
    Right str -> return a
    Left  err -> return $ show (err :: SomeException)
  putStrLn x
  where
    a :: String
    a = error "hi"