Commit 302b38bd authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7931

parent d90640e7
{-# LANGUAGE StandaloneDeriving #-}
module Main where
data A
deriving instance Read A
main = seq (read "" :: A) (return ())
T7931: Derived Read on empty data type
......@@ -34,4 +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, [''])
Supports Markdown
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