From: simonm <unknown>
Date: Wed, 17 Dec 1997 11:08:16 +0000 (+0000)
Subject: [project @ 1997-12-17 11:08:16 by simonm]
X-Git-Tag: Approx_2487_patches~1165
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7b2f8c913792f50d94631e765255839214e565a2;p=ghc-hetmet.git

[project @ 1997-12-17 11:08:16 by simonm]
add typechecker bug which we currently don't have a fix for
---

diff --git a/ghc/tests/typecheck/should_compile/tc094.hs b/ghc/tests/typecheck/should_compile/tc094.hs
new file mode 100644
index 0000000..334c34c
--- /dev/null
+++ b/ghc/tests/typecheck/should_compile/tc094.hs
@@ -0,0 +1,7 @@
+module ShouldSucceed where
+
+-- From a bug report by Sven Panne.
+
+foo = bar
+   where bar = \_ -> (truncate boing, truncate boing)
+         boing = 0