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/nativeGen/X86/Instr.hs | |
| parent | 9f607eeb6227635a219b316926891e825557682c (diff) | |
| download | haskell-e2cacb66e10c7b991e77d7a3c0d9f5dc7c4c2cf8.tar.gz | |
Manual hlinting: or (map f) = any f
Diffstat (limited to 'compiler/nativeGen/X86/Instr.hs')
| -rw-r--r-- | compiler/nativeGen/X86/Instr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |