summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-api/landmines/MineKind.hs
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2014-09-05 18:11:04 -0500
committerAustin Seipp <austin@well-typed.com>2014-09-06 10:36:50 -0500
commit7d3f2dfc7a45d741224c521e0f2a616a89f9506f (patch)
tree61465f91bb491c2d922f99345476b26e7ed802ca /testsuite/tests/ghc-api/landmines/MineKind.hs
parent7bf7ca2b7a0f5ccf379cc035ad1e8bd80ea045f8 (diff)
downloadhaskell-7d3f2dfc7a45d741224c521e0f2a616a89f9506f.tar.gz
PostTcType replaced with TypeAnnot
Summary: This is a first step toward allowing generic traversals of the AST without 'landmines', by removing the `panic`s located throughout `placeHolderType`, `placeHolderKind` & co. See more on the discussion at https://www.mail-archive.com/ghc-devs@haskell.org/msg05564.html (This also makes a corresponding update to the `haddock` submodule.) Test Plan: `sh validate` and new tests pass. Reviewers: austin, simonpj, goldfire Reviewed By: austin, simonpj, goldfire Subscribers: edsko, Fuuzetsu, thomasw, holzensp, goldfire, simonmar, relrod, ezyang, carter Projects: #ghc Differential Revision: https://phabricator.haskell.org/D157
Diffstat (limited to 'testsuite/tests/ghc-api/landmines/MineKind.hs')
-rw-r--r--testsuite/tests/ghc-api/landmines/MineKind.hs26
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-api/landmines/MineKind.hs b/testsuite/tests/ghc-api/landmines/MineKind.hs
new file mode 100644
index 0000000000..c97a996c66
--- /dev/null
+++ b/testsuite/tests/ghc-api/landmines/MineKind.hs
@@ -0,0 +1,26 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE GADTs #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE TypeOperators #-}
+{-
+
+Exercising avoidance of known landmines.
+
+We need one each of
+
+ PostTc id Kind
+ PostTc id Type
+
+ PostRn id Fixity
+ PostRn id NameSet
+
+
+-}
+module MineKind where
+
+data HList :: [*] -> * where
+ HNil :: HList '[]
+ HCons :: a -> HList t -> HList (a ': t)
+
+data Tuple :: (*,*) -> * where
+ Tuple :: a -> b -> Tuple '(a,b)