The easiest way - just use filtera lambda: filter (\ (a, b) -> a == b) ls.
You can also be pretty and use uncurrythat changes the normal function of two arguments to one that takes a tuple, providing you filter (uncurry (==)). Remember that (==)it is just a type function Eq a => a -> a -> Bool, therefore it uncurry (==)is a type function Eq a => (a, a) -> Bool, which is exactly what you are looking for.