diff options
Diffstat (limited to 'testsuite/tests/ghci.debugger/scripts/T8487.hs')
| -rw-r--r-- | testsuite/tests/ghci.debugger/scripts/T8487.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/T8487.hs b/testsuite/tests/ghci.debugger/scripts/T8487.hs new file mode 100644 index 0000000000..d77738e3c9 --- /dev/null +++ b/testsuite/tests/ghci.debugger/scripts/T8487.hs @@ -0,0 +1,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" |