ghc/tests/deSugar/should_compile/ds042.hs

   1 -- !!! Guard on a tuple pattern, broke 4.01 due to the
   2 -- !!! special handling of unboxed tuples in desugarer.
   3 module ShouldCompile where
   4
   5 f :: Int -> (Int,Int)
   6 f x =
   7   case f x of
   8     (a,b) | a > 0 -> f (x-1)