[project @ 2005-03-01 21:44:21 by simonpj]

bogon on test

testsuite/tests/ghc-regress/typecheck/should_compile/tc189.hs

@@ -18,6 +18,7 @@ module ShouldCompile where
   q :: b
   (p,q,r) = ([q,r], r, head p)
 
-  p :: a
-  q :: b
-  (p,q,r) = (r,r,p)
+-------------
+  t :: a
+  u :: b
+  (t,u,v) = (v,v,t)