blob: 5a3029ad11f08c02c478fd1b39995ffe0800b70d (
plain)
1
2
3
4
5
6
7
8
9
|
--Testing RecordWildCards (a previous bug)
data C = C {a :: Integer, b :: Integer, c :: Integer, d :: Integer} deriving Show
let myc = C 1 2 3 4
:set -XFlexibleInstances
instance Show (C -> Integer) where ; show a = "C -> field " ++ (show $ a myc)
(a,b,c,d)
:set -XRecordWildCards
let C{..} = myc
(a,b,c,d)
|
