blob: b45fdc41f496d166f26d0690ca19d61de8ddcb62 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE RecordWildCards, MonadComprehensions, TransformListComp, NamedFieldPuns #-}
module T3901 where
import GHC.Exts (groupWith)
data Rec = Rec {a :: Int} deriving (Show)
recs1 = [a | Rec {a=a} <- [Rec 1], then group by a using groupWith]
recs2 = [a | Rec {a} <- [Rec 1], then group by a using groupWith]
recs3 = [a | Rec {..} <- [Rec 1], then group by a using groupWith]
recs4 :: [[Int]]
recs4 = [a | Rec {..} <- [Rec 1], then group by a using groupWith]
|
