Commit eb4c7e47 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #4918

parent b8688dc7
......@@ -28,3 +28,9 @@ T4903:
'$(TEST_HC)' -c -O T4903a.hs -dcore-lint
'$(TEST_HC)' -c -O T4903.hs -dcore-lint
T4918:
$(RM) -f T4918.hi T4918.o T4918a.hi T4918a.o
'$(TEST_HC)' -c -O T4918a.hs
'$(TEST_HC)' -c -O T4918.hs
'$(TEST_HC)' --show-iface T4918.hi | grep 'C#'
module T4918 where
import T4918a
f1 = map (\() -> 'p') [()]
f2 = map (\() -> 'q') myEnum
{- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.C# 'p') -}
{- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.C# 'q') -}
module T4918a where
class MyEnum a where
myEnum :: [a]
instance MyEnum () where
myEnum = [()]
......@@ -88,3 +88,8 @@ test('T4903',
normal,
run_command,
['$MAKE -s --no-print-directory T4903'])
test('T4918',
normal,
run_command,
['$MAKE -s --no-print-directory T4918'])
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