From ba4e3934abc82e0ba2bec51842315819910d1018 Mon Sep 17 00:00:00 2001 From: Alp Mestanogullari Date: Mon, 3 Jun 2019 15:57:02 +0200 Subject: Hadrian: profiling and debug enabled ways support -eventlog too --- hadrian/src/Settings/Builders/Ghc.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'hadrian') diff --git a/hadrian/src/Settings/Builders/Ghc.hs b/hadrian/src/Settings/Builders/Ghc.hs index 0f5ed94b9b..db368f9b91 100644 --- a/hadrian/src/Settings/Builders/Ghc.hs +++ b/hadrian/src/Settings/Builders/Ghc.hs @@ -176,10 +176,12 @@ wayGhcArgs = do , (Threaded `wayUnit` way) ? arg "-optc-DTHREADED_RTS" , (Debug `wayUnit` way) ? arg "-optc-DDEBUG" , (Profiling `wayUnit` way) ? arg "-prof" - , (Logging `wayUnit` way) ? arg "-eventlog" + , supportsEventlog way ? arg "-eventlog" , (way == debug || way == debugDynamic) ? pure ["-ticky", "-DTICKY_TICKY"] ] + where supportsEventlog w = any (`wayUnit` w) [Logging, Profiling, Debug] + packageGhcArgs :: Args packageGhcArgs = do package <- getPackage -- cgit v1.2.1