Commit 5b08752e authored by Simon Peyton Jones's avatar Simon Peyton Jones

Fix test for Trac #7931

parent 71178ab7
......@@ -3,5 +3,8 @@ module Main where
data A
deriving instance Read A
deriving instance Show A
main = seq (read "" :: A) (return ())
main = print (read "[]" :: [A])
-- Should successfully read the empty list
......@@ -34,5 +34,5 @@ test('T4528a', normal, compile_and_run, [''])
test('T5041', normal, compile_and_run, [''])
test('T5628', exit_code(1), compile_and_run, [''])
test('T5712', normal, compile_and_run, [''])
test('T7931', exit_code(1), compile_and_run, [''])
test('T7931', normal, compile_and_run, [''])
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