Commit e9b2dc50 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #3176

parent 74925127
{-# LANGUAGE ExistentialQuantification #-}
-- Trac #3176
module Foo where
data ES = forall a. Show a => ES {unES:: a}
smallPrintES f t = show $ unES $ f t
T3176.hs:9:26:
Cannot use record selector `unES' as a function due to escaped type variables
Probable fix: use pattern-matching syntax instead
In the first argument of `($)', namely `unES'
In the second argument of `($)', namely `unES $ f t'
In the expression: show $ unES $ f t
......@@ -208,3 +208,4 @@ test('T2688', normal, compile_fail, [''])
test('T2714', normal, compile_fail, [''])
test('T2994', normal, compile_fail, [''])
test('T3155', normal, compile_fail, [''])
test('T3176', normal, compile_fail, [''])
Markdown is supported
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