diff options
| -rw-r--r-- | compiler/basicTypes/MkId.hs | 2 | ||||
| -rw-r--r-- | compiler/simplCore/LiberateCase.hs | 2 | ||||
| -rw-r--r-- | compiler/typecheck/TcRnDriver.hs | 2 | ||||
| -rw-r--r-- | libraries/base/GHC/Read.hs | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/compiler/basicTypes/MkId.hs b/compiler/basicTypes/MkId.hs index 8a62e8269d..433f70a04f 100644 --- a/compiler/basicTypes/MkId.hs +++ b/compiler/basicTypes/MkId.hs @@ -100,7 +100,7 @@ There are several reasons why an Id might appear in the wiredInIds: * errorIds, defined in coreSyn/MkCore.hs. These error functions (e.g. rUNTIME_ERROR_ID) are wired in - becuase the desugarer generates code that mentions them directly + because the desugarer generates code that mentions them directly In all cases except ghcPrimIds, there is a definition site in a library module, which may be called (e.g. in higher order situations); diff --git a/compiler/simplCore/LiberateCase.hs b/compiler/simplCore/LiberateCase.hs index 342ad7384a..b484de3bc3 100644 --- a/compiler/simplCore/LiberateCase.hs +++ b/compiler/simplCore/LiberateCase.hs @@ -192,7 +192,7 @@ Consider g = \y. SMALL...f... Then we *can* in principle do liberate-case on 'g' (small RHS) but not -for 'f' (too big). But doing so is not profitable, becuase duplicating +for 'f' (too big). But doing so is not profitable, because duplicating 'g' at its call site in 'f' doesn't get rid of any cases. So we just ask for the whole group to be small enough. diff --git a/compiler/typecheck/TcRnDriver.hs b/compiler/typecheck/TcRnDriver.hs index 40b5efec84..6ae299b79a 100644 --- a/compiler/typecheck/TcRnDriver.hs +++ b/compiler/typecheck/TcRnDriver.hs @@ -241,7 +241,7 @@ tcRnModuleTcRnM hsc_env hsc_src -- If the whole module is warned about or deprecated -- (via mod_deprec) record that in tcg_warns. If we do thereby add - -- a WarnAll, it will override any subseqent depracations added to tcg_warns + -- a WarnAll, it will override any subsequent deprecations added to tcg_warns let { tcg_env1 = case mod_deprec of Just (L _ txt) -> tcg_env { tcg_warns = WarnAll txt } Nothing -> tcg_env diff --git a/libraries/base/GHC/Read.hs b/libraries/base/GHC/Read.hs index 2d8ee3de51..8160a2a704 100644 --- a/libraries/base/GHC/Read.hs +++ b/libraries/base/GHC/Read.hs @@ -392,7 +392,7 @@ readSymField fieldName readVal = do -- Note [Why readField] -- --- Previousy, the code for automatically deriving Read instance (in +-- Previously, the code for automatically deriving Read instance (in -- typecheck/TcGenDeriv.hs) would generate inline code for parsing fields; -- this, however, turned out to produce massive amounts of intermediate code, -- and produced a considerable performance hit in the code generator. |