1 files changed, 5 insertions, 1 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index c50bb07f75..f6544b6aba 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -138,12 +138,16 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
     stat_startInit();
 
     /* Set the RTS flags to default values. */
-
     initRtsFlagsDefaults();
 
     /* Call the user hook to reset defaults, if present */
     rts_config.defaultsHook();
 
+    /* Whether to GC CAFs */
+    if (rts_config.keep_cafs) {
+        setKeepCAFs();
+    }
+
     /* Parse the flags, separating the RTS flags from the programs args */
     if (argc == NULL || argv == NULL) {
         // Use a default for argc & argv if either is not supplied