diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 10:30:21 +0000 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 10:30:21 +0000 |
| commit | e2cacb66e10c7b991e77d7a3c0d9f5dc7c4c2cf8 (patch) | |
| tree | 16f0a9663e08dc591a46f80f9ac878461245aebf /compiler | |
| parent | 9f607eeb6227635a219b316926891e825557682c (diff) | |
| download | haskell-e2cacb66e10c7b991e77d7a3c0d9f5dc7c4c2cf8.tar.gz | |
Manual hlinting: or (map f) = any f
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/deSugar/Check.lhs | 4 | ||||
| -rw-r--r-- | compiler/nativeGen/X86/Instr.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs index 960475cedd..91c2e8b356 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) | or (map (\y -> compare_cons x y) xs) = remove_dups xs - | otherwise = x : remove_dups xs +remove_dups (x:xs) | any (\y -> compare_cons x y) = 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, diff --git a/compiler/nativeGen/X86/Instr.hs b/compiler/nativeGen/X86/Instr.hs index d10591e37f..8284270be1 100644 --- a/compiler/nativeGen/X86/Instr.hs +++ b/compiler/nativeGen/X86/Instr.hs @@ -788,7 +788,7 @@ i386_insert_ffrees -> [GenBasicBlock Instr] i386_insert_ffrees blocks - | or (map (any is_G_instr) [ instrs | BasicBlock _ instrs <- blocks ]) + | any (any is_G_instr) [ instrs | BasicBlock _ instrs <- blocks ] = map insertGFREEs blocks | otherwise = blocks |