Lazy pattern in Haskell - yubrot

Lazy pattern in Haskell

code:haskell

foo (a, b) = ()

bar ~(a, b) = ()

main = mapM_ print bar undefined, foo undefined