Commit fd44046f authored by simonpj's avatar simonpj
Browse files

Test Trac #5041

parent 9f096bd5
{-# LANGUAGE MagicHash #-}
module Main where
data T = T1# | T2# Int deriving( Read, Show )
foo :: [T]
foo = read "[ T1#, T2# 4, T2# 5 ]"
main = print foo
......@@ -31,3 +31,4 @@ test('drvrun-functor1', normal, compile_and_run, [''])
test('drvrun-foldable1', normal, compile_and_run, [''])
test('T4136', normal, compile_and_run, [''])
test('T4528a', normal, compile_and_run, [''])
test('T5041', 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