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 ...@@ -3211,9 +3211,7 @@ defaultFlags settings
++ default_PIC platform ++ default_PIC platform
++ (if pc_DYNAMIC_BY_DEFAULT (sPlatformConstants settings) ++ concatMap (wayGeneralFlags platform) (defaultWays settings)
then wayGeneralFlags platform WayDyn
else [])
where platform = sTargetPlatform 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