ref: 51f905138babfc67f3291a40c8b5ddd7ec85b73d
dir: /tests/NoForall.hs/
module NoForall where
-- Without an explicit forall the 'a' is not bound in the body.
f :: a -> ((a,a),(a,a))
f x =
let g :: a -> (a,a)
g a = (a,a)
in g (x,x)
main :: IO ()
main = print (f True)