Major patch to add -fwarn-redundant-constraints
[ghc.git] / testsuite / tests / module / mod169.hs
1 -- !!! Non-clashing local binding and occurrence.
2 module M where
3
4 m :: Int
5 m = let length _ = 5 in length []