Build more profiling ways by default (#682)
authorAlp Mestanogullari <alpmestan@gmail.com>
Mon, 10 Sep 2018 15:40:44 +0000 (17:40 +0200)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 10 Sep 2018 15:40:44 +0000 (17:40 +0200)
See #681

src/Settings/Default.hs

index b3828fa..e9d4f68 100644 (file)
@@ -157,7 +157,12 @@ defaultRtsWays = do
     ways <- getLibraryWays
     mconcat
         [ pure [ logging, debug, threaded, threadedDebug, threadedLogging ]
     ways <- getLibraryWays
     mconcat
         [ pure [ logging, debug, threaded, threadedDebug, threadedLogging ]
-        , (profiling `elem` ways) ? pure [threadedProfiling]
+        , (profiling `elem` ways) ?
+          pure [ profiling, threadedProfiling, debugProfiling
+               , threadedDebugProfiling ]
+          -- we don't add the 'logging' variants of those for now, but we might
+          -- in the future?
+
         {- , (dynamic `elem` ways) ?
           pure [ dynamic, debugDynamic, threadedDynamic, threadedDebugDynamic
                , loggingDynamic, threadedLoggingDynamic ] -}
         {- , (dynamic `elem` ways) ?
           pure [ dynamic, debugDynamic, threadedDynamic, threadedDebugDynamic
                , loggingDynamic, threadedLoggingDynamic ] -}