Commit 45d6c046 authored by simonpj's avatar simonpj
Browse files

Test Trac #2914

parent 03440aeb
{-# LANGUAGE TypeFamilies, RecordWildCards #-}
module AssocWildCards where
class FooClass a where
data FooType a
instance FooClass Int where
data FooType Int = FooInt { fooIntVal :: Int }
fooInt :: Int -> FooType Int
fooInt fooIntVal = FooInt{..}
fromFooInt :: FooType Int -> Int
fromFooInt (FooInt{..}) = fooIntVal
......@@ -115,6 +115,7 @@ test('T2205', normal, compile, [''])
test('2334', normal, compile, [''])
test('T2506', normal, compile, [''])
test('T2914', normal, compile, [''])
test('timing001', normal, compile, [''])
test('timing002', normal, compile, [''])
......
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