diff options
| author | mynguyen <mnguyen1@brynmawr.edu> | 2018-12-18 11:52:26 -0500 |
|---|---|---|
| committer | Richard Eisenberg <rae@cs.brynmawr.edu> | 2019-01-03 08:57:32 -0500 |
| commit | 17bd163566153babbf51adaff8397f948ae363ca (patch) | |
| tree | ef25e933481def276de4cdcad77eb4a34a76444b /testsuite/tests/th/TH_TyInstWhere2.hs | |
| parent | 6e4e63764aaf558cf177c2a9c2da345b2a360ea6 (diff) | |
| download | haskell-17bd163566153babbf51adaff8397f948ae363ca.tar.gz | |
Visible kind application
Summary:
This patch implements visible kind application (GHC Proposal 15/#12045), as well as #15360 and #15362.
It also refactors unnamed wildcard handling, and requires that type equations in type families in Template Haskell be
written with full type on lhs. PartialTypeSignatures are on and warnings are off automatically with visible kind
application, just like in term-level.
There are a few remaining issues with this patch, as documented in
ticket #16082.
Includes a submodule update for Haddock.
Test Plan: Tests T12045a/b/c/TH1/TH2, T15362, T15592a
Reviewers: simonpj, goldfire, bgamari, alanz, RyanGlScott, Iceland_jack
Subscribers: ningning, Iceland_jack, RyanGlScott, int-index, rwbarton, mpickering, carter
GHC Trac Issues: `#12045`, `#15362`, `#15592`, `#15788`, `#15793`, `#15795`, `#15797`, `#15799`, `#15801`, `#15807`, `#15816`
Differential Revision: https://phabricator.haskell.org/D5229
Diffstat (limited to 'testsuite/tests/th/TH_TyInstWhere2.hs')
| -rw-r--r-- | testsuite/tests/th/TH_TyInstWhere2.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/testsuite/tests/th/TH_TyInstWhere2.hs b/testsuite/tests/th/TH_TyInstWhere2.hs index 47fedad8da..bfd0975b8f 100644 --- a/testsuite/tests/th/TH_TyInstWhere2.hs +++ b/testsuite/tests/th/TH_TyInstWhere2.hs @@ -1,8 +1,9 @@ -{-# LANGUAGE PolyKinds, DataKinds, TemplateHaskell, TypeFamilies #-} +{-# LANGUAGE PolyKinds, DataKinds, TemplateHaskell, TypeFamilies, TypeApplications #-} module TH_TyInstWhere2 where -import Language.Haskell.TH +import Language.Haskell.TH hiding (Type) +import Data.Kind $( do { decs <- [d| type family F (a :: k) (b :: k) :: Bool where F a a = True @@ -10,4 +11,8 @@ $( do { decs <- [d| type family F (a :: k) (b :: k) :: Bool where ; reportWarning (pprint decs) ; return [] }) - +$( do { dec1 <- [d| type family F1 (a :: k) :: Type where + F1 @Type Int = Bool + F1 @Bool 'False = Char |] + ; reportWarning (pprint dec1) + ; return [] }) |