Commit e11fed51 authored by ross's avatar ross

[project @ 2004-11-17 13:30:35 by ross]

update Hugs output
parent 32d6bd2a
Fail: pattern match failure: f instEq_v100 Bool_True [] "Hallo"
Fail: pattern match failure
Fail: pattern match failure: main_v3212 (1,Num_fromInt instNum_v32 2)
Fail: pattern match failure
......@@ -511,9 +511,7 @@ testEnumRatioInt = do
mayBomb x = catchJust errorCalls x (\e -> putStrLn ("error " ++ show e))
`Control.Exception.catch` (\e -> case e of
PatternMatchFail _ -> putStrLn "Fail: pattern match failure"
_ -> putStrLn ("Fail: " ++ show e))
`Control.Exception.catch` (\e -> putStrLn ("Fail: " ++ show e))
test :: Show a => String -> String -> a -> IO ()
test test_nm expected val = do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment