From 334e3c04376a84c977c2d5f29d384daa38a76913 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 2 Oct 2000 10:09:58 +0000
Subject: [PATCH] [project @ 2000-10-02 10:09:58 by simonpj] Add tc107

---
 ghc/tests/typecheck/should_compile/tc107.hs     | 8 ++++++++
 ghc/tests/typecheck/should_compile/tc107.stderr | 1 +
 2 files changed, 9 insertions(+)
 create mode 100644 ghc/tests/typecheck/should_compile/tc107.hs
 create mode 100644 ghc/tests/typecheck/should_compile/tc107.stderr

diff --git a/ghc/tests/typecheck/should_compile/tc107.hs b/ghc/tests/typecheck/should_compile/tc107.hs
new file mode 100644
index 000000000000..75211bc58435
--- /dev/null
+++ b/ghc/tests/typecheck/should_compile/tc107.hs
@@ -0,0 +1,8 @@
+-- !!! Kind checking in a recursive situation
+-- Exposes a bug in proto-4.09 (black hole)
+
+module ShouldCompile where
+
+data ChItem = ChItemX Stream
+type Stream = ChItem 
+
diff --git a/ghc/tests/typecheck/should_compile/tc107.stderr b/ghc/tests/typecheck/should_compile/tc107.stderr
new file mode 100644
index 000000000000..8d1c8b69c3fc
--- /dev/null
+++ b/ghc/tests/typecheck/should_compile/tc107.stderr
@@ -0,0 +1 @@
+ 
-- 
GitLab