From 1eefedf7371778d1721d9af9247c2eff12ae7417 Mon Sep 17 00:00:00 2001 From: Richard Eisenberg Date: Tue, 15 Mar 2016 13:49:15 -0400 Subject: Fix #11357. We were looking at a data instance tycon for visibility info, which is the wrong place to look. Look at the data family tycon instead. Also improved the pretty-printing near there to suppress kind arguments when appropriate. --- testsuite/tests/deriving/should_compile/T11357.hs | 10 ++++++++++ testsuite/tests/deriving/should_compile/all.T | 1 + 2 files changed, 11 insertions(+) create mode 100644 testsuite/tests/deriving/should_compile/T11357.hs (limited to 'testsuite/tests/deriving') diff --git a/testsuite/tests/deriving/should_compile/T11357.hs b/testsuite/tests/deriving/should_compile/T11357.hs new file mode 100644 index 0000000000..f3dc715f89 --- /dev/null +++ b/testsuite/tests/deriving/should_compile/T11357.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE KindSignatures #-} +{-# LANGUAGE PolyKinds #-} +{-# LANGUAGE TypeFamilies #-} +module T11357 where + +import GHC.Generics (Generic1) + +data family ProxyFam (a :: k) +data instance ProxyFam (a :: k) = ProxyCon deriving Generic1 diff --git a/testsuite/tests/deriving/should_compile/all.T b/testsuite/tests/deriving/should_compile/all.T index ad235d695e..e62c50c218 100644 --- a/testsuite/tests/deriving/should_compile/all.T +++ b/testsuite/tests/deriving/should_compile/all.T @@ -64,3 +64,4 @@ test('T9968', normal, compile, ['']) test('T11174', normal, compile, ['']) test('T11416', normal, compile, ['']) test('T11396', normal, compile, ['']) +test('T11357', normal, compile, ['']) -- cgit v1.2.1