Commit 29ca4a19 authored by thomie's avatar thomie
Browse files

DynFlags: call defaultWays when creating defaultFlags

Instead of duplicating its logic. Refactoring only.

For reference, `defaultWays` looks like this:

  defaultWays :: Settings -> [Way]
  defaultWays settings = if pc_DYNAMIC_BY_DEFAULT (sPlatformConstants settings)
                        then [WayDyn]
                        else []

Reviewed by: bgamari

Differential Revision:
parent 44640af7
......@@ -3211,9 +3211,7 @@ defaultFlags settings
++ default_PIC platform
++ (if pc_DYNAMIC_BY_DEFAULT (sPlatformConstants settings)
then wayGeneralFlags platform WayDyn
else [])
++ concatMap (wayGeneralFlags platform) (defaultWays settings)
where platform = sTargetPlatform settings
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment