summaryrefslogtreecommitdiff
path: root/tests/examples/ghc80/BadTelescope2.hs
diff options
context:
space:
mode:
authorAlanZimmerman <>2017-05-05 11:04:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-05-05 11:04:00 (GMT)
commit983f65471a7635bf39fee65ab86ba980f6716e58 (patch)
tree41386d442644d75b02eb6124a985e5e64069cc55 /tests/examples/ghc80/BadTelescope2.hs
parentf9ad938aef4c5a33836070f206050b28fdd38c47 (diff)
version 0.5.3.10.5.3.1
Diffstat (limited to 'tests/examples/ghc80/BadTelescope2.hs')
-rw-r--r--tests/examples/ghc80/BadTelescope2.hs14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/examples/ghc80/BadTelescope2.hs b/tests/examples/ghc80/BadTelescope2.hs
new file mode 100644
index 0000000..6237df4
--- /dev/null
+++ b/tests/examples/ghc80/BadTelescope2.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE TypeInType, ExplicitForAll #-}
+
+module BadTelescope2 where
+
+import Data.Kind
+import Data.Proxy
+
+data SameKind :: k -> k -> *
+
+foo :: forall a k (b :: k). SameKind a b
+foo = undefined
+
+bar :: forall a (c :: Proxy b) (d :: Proxy a). Proxy c -> SameKind b d
+bar = undefined