diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-02-17 13:14:00 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-02-17 13:16:15 +0000 |
commit | 8d401e50ce35525dcdc6a21fcf952c3cbf3a72d4 (patch) | |
tree | b437497e10ad09b165beb126cf0b22b161d54804 /compiler/llvmGen/Llvm/PpLlvm.hs | |
parent | e52a335d3ae2437f3705baa8c81e3a62ebdd75ab (diff) | |
download | haskell-8d401e50ce35525dcdc6a21fcf952c3cbf3a72d4.tar.gz |
Honour -dsuppress-uniques more thoroughly
I found that tests
parser/should_compile/DumpRenamedAst
and friends were printing uniques, which makes the test fragile.
But -dsuppress-uniques made no difference! It turned out that
pprName wasn't properly consulting Opt_SuppressUniques.
This patch fixes the problem, and updates those three tests to
use -dsuppress-uniques
Diffstat (limited to 'compiler/llvmGen/Llvm/PpLlvm.hs')
-rw-r--r-- | compiler/llvmGen/Llvm/PpLlvm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs index cdf8cc7791..293999bd1e 100644 --- a/compiler/llvmGen/Llvm/PpLlvm.hs +++ b/compiler/llvmGen/Llvm/PpLlvm.hs @@ -196,7 +196,7 @@ ppLlvmBlock (LlvmBlock blockId stmts) = -- | Print out an LLVM block label. ppLlvmBlockLabel :: LlvmBlockId -> SDoc -ppLlvmBlockLabel id = pprUnique id <> colon +ppLlvmBlockLabel id = pprUniqueAlways id <> colon -- | Print out an LLVM statement. |