Test cases for GHCi data, class, etc.
[ghc.git] / testsuite / tests / ghci / scripts / ghci049.script
1 --Testing RecordWildCards (a previous bug)
2 data C = C {a :: Integer, b :: Integer, c :: Integer, d :: Integer} deriving Show
3 let myc = C 1 2 3 4
4 :set -XFlexibleInstances
5 instance Show (C -> Integer) where ; show a = "C -> field " ++ (show $ a myc)
6 (a,b,c,d)
7 :set -XRecordWildCards
8 let C{..} = myc
9 (a,b,c,d)