blob: 39b521977bbc4929f125b60ea57643670c092c32 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# 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]
|