diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-02 16:33:25 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-02 16:33:25 +0000 |
| commit | 9dde17e0ab2d759038ad4aff1fe89a1bf207331f (patch) | |
| tree | 1d491a1fb196efd8335ef757d26bac276ecc156d /compiler/utils | |
| parent | 3bf54e78cfd4b94756e3f21c00ae187f80c3341d (diff) | |
| download | haskell-9dde17e0ab2d759038ad4aff1fe89a1bf207331f.tar.gz | |
White space only
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/ListSetOps.lhs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/utils/ListSetOps.lhs b/compiler/utils/ListSetOps.lhs index 2c6c6b0b6c..110ba7788f 100644 --- a/compiler/utils/ListSetOps.lhs +++ b/compiler/utils/ListSetOps.lhs @@ -24,9 +24,9 @@ module ListSetOps ( hasNoDups, runs, removeDups, findDupsEq, equivClasses, equivClassesByUniq, - -- Remove redudant elts - removeRedundant -- Used in the ghc/InteractiveUI, - -- although not in the compiler itself + -- Remove redudant elts + removeRedundant -- Used in the ghc/InteractiveUI, + -- although not in the compiler itself ) where #include "HsVersions.h" @@ -220,7 +220,7 @@ findDupsEq eq (x:xs) | null eq_xs = findDupsEq eq xs where (eq_xs, neq_xs) = partition (eq x) xs removeRedundant :: (a -> a -> Bool) -- True <=> discard the *second* argument - -> [a] -> [a] + -> [a] -> [a] -- Remove any element y for which -- another element x is in the list -- and (x `subsumes` y) |