diff options
Diffstat (limited to 'compiler/GHC/CmmToLlvm.hs')
-rw-r--r-- | compiler/GHC/CmmToLlvm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CmmToLlvm.hs b/compiler/GHC/CmmToLlvm.hs index 5f585ef866..ea5884405e 100644 --- a/compiler/GHC/CmmToLlvm.hs +++ b/compiler/GHC/CmmToLlvm.hs @@ -110,8 +110,8 @@ llvmCodeGen' cfg cmm_stream header = let target = llvmCgLlvmTarget cfg llvmCfg = llvmCgLlvmConfig cfg - in text ("target datalayout = \"" ++ getDataLayout llvmCfg target ++ "\"") - $+$ text ("target triple = \"" ++ target ++ "\"") + in (text "target datalayout = \"" <> text (getDataLayout llvmCfg target) <> text "\"") + $+$ (text "target triple = \"" <> text target <> text "\"") getDataLayout :: LlvmConfig -> String -> String getDataLayout config target = |