path: root/testsuite/tests/typecheck/should_compile/tc094.hs

module ShouldSucceed where

-- From a bug report by Sven Panne.

foo = bar
   where bar = \_ -> (truncate boing, truncate boing)
         boing = 0