diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-16 14:03:58 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-16 14:03:58 +0100 |
| commit | a62b56ef0b9d1750289ffd3f77b578dc73452374 (patch) | |
| tree | 57faa02949547782417d970639588ad276429fd7 /compiler/llvmGen/LlvmCodeGen/Ppr.hs | |
| parent | 7f5af24fb2af9b0469c79180c72d78cb12e7358f (diff) | |
| download | haskell-a62b56ef0b9d1750289ffd3f77b578dc73452374.tar.gz | |
Pass DynFlags down to llvmWord
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen/Ppr.hs')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Ppr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Ppr.hs b/compiler/llvmGen/LlvmCodeGen/Ppr.hs index cf78b3730a..d73b2eb76c 100644 --- a/compiler/llvmGen/LlvmCodeGen/Ppr.hs +++ b/compiler/llvmGen/LlvmCodeGen/Ppr.hs @@ -28,10 +28,10 @@ import Unique -- | Header code for LLVM modules pprLlvmHeader :: SDoc -pprLlvmHeader = +pprLlvmHeader = sdocWithDynFlags $ \dflags -> moduleLayout $+$ text "" - $+$ ppLlvmFunctionDecls (map snd ghcInternalFunctions) + $+$ ppLlvmFunctionDecls (map snd (ghcInternalFunctions dflags)) $+$ ppLlvmMetas stgTBAA $+$ text "" |