Commit b8cad059 authored by simonpj's avatar simonpj
Browse files

Add test for Trac #3901

parent 564bc417
{-# LANGUAGE RecordWildCards, TransformListComp, NamedFieldPuns #-}
module T3901 where
data Rec = Rec {a :: Int} deriving (Show)
recs1 = [a | Rec {a=a} <- [Rec 1], then group by a]
recs2 = [a | Rec {a} <- [Rec 1], then group by a]
recs3 = [a | Rec {..} <- [Rec 1], then group by a]
recs4 :: [[Int]]
recs4 = [a | Rec {..} <- [Rec 1], then group by a]
......@@ -121,6 +121,7 @@ test('T3262', normal, compile, [''])
test('T3371', normal, compile, [''])
test('T1074b', normal, compile, ['-Wall'])
test('T3640', normal, compile, [''])
test('T3901', 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