diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 11:36:32 +0000 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 11:36:32 +0000 |
| commit | 347721659cb3abd8e8b0d7a4e5d56eb8ac62f3fe (patch) | |
| tree | bfe7c12789bb3109cfd177822693e9d2bdd4e690 /compiler/deSugar | |
| parent | e2cacb66e10c7b991e77d7a3c0d9f5dc7c4c2cf8 (diff) | |
| download | haskell-347721659cb3abd8e8b0d7a4e5d56eb8ac62f3fe.tar.gz | |
Fix Manual hlinting patch
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/Check.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs index 91c2e8b356..c0fe9c03e3 100644 --- a/compiler/deSugar/Check.lhs +++ b/compiler/deSugar/Check.lhs @@ -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, |