Commit ba63115f authored by simonpj's avatar simonpj
Browse files

[project @ 2001-07-12 16:22:04 by simonpj]

Add tc130
parent 79c24205
......@@ -133,3 +133,4 @@ test "tc126" { myvtc("") }
test "tc127" { myvtc("") }
test "tc128" { myvtc("") }
test "tc129" { myvtc("") }
test "tc130" { myvtc("") }
{-# OPTIONS -fglasgow-exts #-}
-- !!! Test inheritance of implicit parameters.
-- GHC 5.00.2 fails this test
......@@ -11,5 +13,6 @@ data R = R {f :: Int}
foo :: (?x :: Int) => R -> R
foo r = r {f = ?x}
baz :: (?x :: Int) => Int
baz = (?x +1) :: Int
{-# OPTIONS -fglasgow-exts #-}
-- !!! Desugaring of record updates
-- Showed up a bug in the newtype-squashing machinery
module ShouldCompile where
data R = R {field :: Int}
test:: (?param :: R) => a -> Int
test x = field (?param {field = 42})
-- The type of the record to be updated is
-- {?param :: R} as well as plain R
-- which confused the compiler
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment