ghc/tests/typecheck/should_compile/tc094.hs

   1 module ShouldSucceed where
   2
   3 -- From a bug report by Sven Panne.
   4
   5 foo = bar
   6    where bar = \_ -> (truncate boing, truncate boing)
   7          boing = 0