[commit: ghc] master: Fix Manual hlinting patch (3477216)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/347721659cb3abd8e8b0d7a4e5d56eb8ac62f3fe/ghc

>---------------------------------------------------------------

commit 347721659cb3abd8e8b0d7a4e5d56eb8ac62f3fe
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Feb 13 11:36:32 2014 +0000

    Fix Manual hlinting patch


>---------------------------------------------------------------

347721659cb3abd8e8b0d7a4e5d56eb8ac62f3fe
 compiler/deSugar/Check.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs
index 91c2e8b..c0fe9c0 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,