Commit 34772165 authored by Joachim Breitner's avatar Joachim Breitner
Browse files

Fix Manual hlinting patch

parent e2cacb66
......@@ -421,8 +421,8 @@ compare_cons _ _ = panic "Check.compare_cons: Not ConPatOut with RealDataCon"
remove_dups :: [Pat Id] -> [Pat Id]
remove_dups [] = []
remove_dups (x:xs) | any (\y -> compare_cons x y) = remove_dups xs
| otherwise = x : remove_dups xs
remove_dups (x:xs) | any (\y -> compare_cons x y) xs = remove_dups xs
| otherwise = x : remove_dups xs
get_used_cons :: [(EqnNo, EquationInfo)] -> [Pat Id]
get_used_cons qs = remove_dups [pat | q <- qs, let pat = firstPatN q,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment