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

module Foo where

f :: Show a => a
(f, _) = undefined

g :: Show a => a
g = f