From 93f34bbd3319544d8eb3a5e2593bccb9b12e3459 Mon Sep 17 00:00:00 2001 From: John Ericson Date: Tue, 26 Mar 2019 23:48:47 -0400 Subject: Purge TargetPlatform_NAME and cTargetPlatformString --- compiler/main/DynFlags.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'compiler/main/DynFlags.hs') diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 1a62d9b15f..ece0c2208e 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -1357,6 +1357,7 @@ data Settings = Settings { sPlatformConstants :: PlatformConstants, -- Formerly Config.hs, target specific + sTargetPlatformString :: String, -- TODO Recalculate string from richer info? sTablesNextToCode :: Bool } @@ -5621,7 +5622,7 @@ compilerInfo dflags ("Stage", cStage), ("Build platform", cBuildPlatformString), ("Host platform", cHostPlatformString), - ("Target platform", cTargetPlatformString), + ("Target platform", sTargetPlatformString $ settings dflags), ("Have interpreter", cGhcWithInterpreter), ("Object splitting supported", showBool False), ("Have native code generator", cGhcWithNativeCodeGen), -- cgit v1.2.1