diff options
Diffstat (limited to 'testsuite/tests/ghci/scripts/ghci049.script')
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci049.script | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci049.script b/testsuite/tests/ghci/scripts/ghci049.script new file mode 100644 index 0000000000..5a3029ad11 --- /dev/null +++ b/testsuite/tests/ghci/scripts/ghci049.script @@ -0,0 +1,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) |