Commit cc765257 authored by simonpj's avatar simonpj
Browse files

Add test for Trac #4235

parent e3dc5c6e
{-# LANGUAGE TypeFamilies #-}
module Main where
data family Foo a
data instance Foo Int
= A | B | C | D
deriving (Eq, Enum)
f :: Foo Int -> Bool
f A = True
f B = False
f _ = True
main = print (map f [B .. D])
......@@ -2,6 +2,7 @@ setTestOpts(only_compiler_types(['ghc']))
setTestOpts(omit_ways(['optc', 'hpc', 'ghci', 'threaded1', 'threaded2']))
test('T2985', normal, compile_and_run, [''])
test('T4235', normal, compile_and_run, [''])
test('GMapAssoc', normal, compile_and_run, ['-package containers'])
test('GMapTop', normal, compile_and_run, ['-package containers'])
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