diff options
| author | Gergő Érdi <gergo@erdi.hu> | 2022-10-18 07:37:20 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-10-19 10:49:51 -0400 |
| commit | 1dab116784e480ab277623e1bd8d78beadcbc433 (patch) | |
| tree | cdfb1fdce479b50b8faef69151146eaab4af8025 | |
| parent | a8b52786326b5c931daf19222be87c58e2b8cab8 (diff) | |
| download | haskell-1dab116784e480ab277623e1bd8d78beadcbc433.tar.gz | |
Fix typo in `Opt_WriteIfSimplifiedCore`'s name
| -rw-r--r-- | compiler/GHC/Driver/Flags.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Driver/Main.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 6 | ||||
| -rw-r--r-- | compiler/GHC/Iface/Make.hs | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/compiler/GHC/Driver/Flags.hs b/compiler/GHC/Driver/Flags.hs index 0651e1c475..592b997b0f 100644 --- a/compiler/GHC/Driver/Flags.hs +++ b/compiler/GHC/Driver/Flags.hs @@ -446,7 +446,7 @@ data GeneralFlag | Opt_KeepOFiles | Opt_BuildDynamicToo - | Opt_WriteIfSimplifedCore + | Opt_WriteIfSimplifiedCore | Opt_UseBytecodeRatherThanObjects -- safe haskell flags diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index ab305d1ed5..e5a1d915fc 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -1110,7 +1110,7 @@ hscDesugarAndSimplify summary (FrontendTypecheck tc_result) tc_warnings mb_old_h hscs_old_iface_hash = mb_old_hash } - Just desugared_guts | gopt Opt_WriteIfSimplifedCore dflags -> do + Just desugared_guts | gopt Opt_WriteIfSimplifiedCore dflags -> do -- If -fno-code is enabled (hence we fall through to this case) -- Running the simplifier once is necessary before doing byte code generation -- in order to inline data con wrappers but we honour whatever level of simplificication the diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index 19b874dcf7..1b2840cf2a 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -3481,7 +3481,7 @@ fFlagsDeps = [ flagSpec "strictness" Opt_Strictness, flagSpec "use-rpaths" Opt_RPath, flagSpec "write-interface" Opt_WriteInterface, - flagSpec "write-if-simplfied-core" Opt_WriteIfSimplifedCore, + flagSpec "write-if-simplfied-core" Opt_WriteIfSimplifiedCore, flagSpec "write-ide-info" Opt_WriteHie, flagSpec "unbox-small-strict-fields" Opt_UnboxSmallStrictFields, flagSpec "unbox-strict-fields" Opt_UnboxStrictFields, @@ -3878,8 +3878,8 @@ impliedGFlags = [(Opt_DeferTypeErrors, turnOn, Opt_DeferTypedHoles) ,(Opt_DeferTypeErrors, turnOn, Opt_DeferOutOfScopeVariables) ,(Opt_DoLinearCoreLinting, turnOn, Opt_DoCoreLinting) ,(Opt_Strictness, turnOn, Opt_WorkerWrapper) - ,(Opt_WriteIfSimplifedCore, turnOn, Opt_WriteInterface) - ,(Opt_ByteCodeAndObjectCode, turnOn, Opt_WriteIfSimplifedCore) + ,(Opt_WriteIfSimplifiedCore, turnOn, Opt_WriteInterface) + ,(Opt_ByteCodeAndObjectCode, turnOn, Opt_WriteIfSimplifiedCore) ] ++ validHoleFitsImpliedGFlags -- General flags that are switched on/off when other general flags are switched diff --git a/compiler/GHC/Iface/Make.hs b/compiler/GHC/Iface/Make.hs index d4336ca0c8..44e332e45c 100644 --- a/compiler/GHC/Iface/Make.hs +++ b/compiler/GHC/Iface/Make.hs @@ -280,8 +280,8 @@ mkIface_ hsc_env entities = typeEnvElts type_env show_linear_types = xopt LangExt.LinearTypes (hsc_dflags hsc_env) - extra_decls = if gopt Opt_WriteIfSimplifedCore dflags then Just [ toIfaceTopBind b | b <- core_prog ] - else Nothing + extra_decls = if gopt Opt_WriteIfSimplifiedCore dflags then Just [ toIfaceTopBind b | b <- core_prog ] + else Nothing decls = [ tyThingToIfaceDecl show_linear_types entity | entity <- entities, let name = getName entity, |