Include all of ModGuts

input-output-hk · Sep 16, 2020 · 8ff0a38 · 8ff0a38
1 parent faa39f8
commit 8ff0a38
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/overlays/patches/ghc/core-field.patch b/overlays/patches/ghc/core-field.patch
@@ -362,8 +362,8 @@ index 8e66a67f58..91119af421 100644
 +              }
 +  = do when (gopt Opt_Write_Phase_Core (hsc_dflags hsc_env)) $
 +         registerInterfaceDataWith "ghc/phase/core" hsc_env $ \bh ->
-+           -- putWithUserData (const $ return ()) bh (toIfaceModGuts guts)
-+           putWithUserData (const $ return ()) bh (map toIfaceBind $ mg_binds guts)
++           putWithUserData (const $ return ()) bh (toIfaceModGuts guts)
++           -- putWithUserData (const $ return ()) bh (map toIfaceBind $ mg_binds guts)
 +       ext_fs <- readIORef $ hsc_ext_fields hsc_env
 +       return iface{mi_ext_fields = ext_fs}
 +    where