diff options
| -rw-r--r-- | compiler/basicTypes/Id.hs | 2 | ||||
| -rw-r--r-- | compiler/basicTypes/IdInfo.hs | 2 | ||||
| -rw-r--r-- | compiler/coreSyn/CoreUtils.hs | 2 | ||||
| -rw-r--r-- | compiler/typecheck/TcUnify.hs | 2 | ||||
| -rw-r--r-- | compiler/types/Coercion.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T7287.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 2 | ||||
| -rwxr-xr-x | utils/llvm-targets/gen-data-layout.sh | 2 |
8 files changed, 8 insertions, 8 deletions
diff --git a/compiler/basicTypes/Id.hs b/compiler/basicTypes/Id.hs index e38769a14f..c1d281edd6 100644 --- a/compiler/basicTypes/Id.hs +++ b/compiler/basicTypes/Id.hs @@ -219,7 +219,7 @@ lazySetIdInfo = Var.lazySetIdInfo setIdInfo :: Id -> IdInfo -> Id setIdInfo id info = info `seq` (lazySetIdInfo id info) - -- Try to avoid spack leaks by seq'ing + -- Try to avoid space leaks by seq'ing modifyIdInfo :: HasDebugCallStack => (IdInfo -> IdInfo) -> Id -> Id modifyIdInfo fn id = setIdInfo id (fn (idInfo id)) diff --git a/compiler/basicTypes/IdInfo.hs b/compiler/basicTypes/IdInfo.hs index f6febaf4dc..12ea490a53 100644 --- a/compiler/basicTypes/IdInfo.hs +++ b/compiler/basicTypes/IdInfo.hs @@ -263,7 +263,7 @@ setInlinePragInfo :: IdInfo -> InlinePragma -> IdInfo setInlinePragInfo info pr = pr `seq` info { inlinePragInfo = pr } setOccInfo :: IdInfo -> OccInfo -> IdInfo setOccInfo info oc = oc `seq` info { occInfo = oc } - -- Try to avoid spack leaks by seq'ing + -- Try to avoid space leaks by seq'ing setUnfoldingInfo :: IdInfo -> Unfolding -> IdInfo setUnfoldingInfo info uf diff --git a/compiler/coreSyn/CoreUtils.hs b/compiler/coreSyn/CoreUtils.hs index 8f4f84b550..3c65072974 100644 --- a/compiler/coreSyn/CoreUtils.hs +++ b/compiler/coreSyn/CoreUtils.hs @@ -532,7 +532,7 @@ isDefaultAlt _ = False -- | Find the case alternative corresponding to a particular -- constructor: panics if no such constructor exists findAlt :: AltCon -> [(AltCon, a, b)] -> Maybe (AltCon, a, b) - -- A "Nothing" result *is* legitmiate + -- A "Nothing" result *is* legitimate -- See Note [Unreachable code] findAlt con alts = case alts of diff --git a/compiler/typecheck/TcUnify.hs b/compiler/typecheck/TcUnify.hs index 9b32c3cf6f..eb44bc385f 100644 --- a/compiler/typecheck/TcUnify.hs +++ b/compiler/typecheck/TcUnify.hs @@ -1778,7 +1778,7 @@ Note [Eliminate younger unification variables] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Given a choice of unifying alpha := beta or beta := alpha -we try, if possible, to elimiate the "younger" one, as determined +we try, if possible, to eliminate the "younger" one, as determined by `ltUnique`. Reason: the younger one is less likely to appear free in an existing inert constraint, and hence we are less likely to be forced into kicking out and rewriting inert constraints. diff --git a/compiler/types/Coercion.hs b/compiler/types/Coercion.hs index d0d0e97a56..346190c7a7 100644 --- a/compiler/types/Coercion.hs +++ b/compiler/types/Coercion.hs @@ -1161,7 +1161,7 @@ applyRoles tc cos = zipWith (\r -> downgradeRole r Nominal) (tyConRolesRepresentational tc) cos -- the Role parameter is the Role of the TyConAppCo --- defined here because this is intimiately concerned with the implementation +-- defined here because this is intimately concerned with the implementation -- of TyConAppCo tyConRolesX :: Role -> TyCon -> [Role] tyConRolesX Representational tc = tyConRolesRepresentational tc diff --git a/testsuite/tests/simplCore/should_compile/T7287.hs b/testsuite/tests/simplCore/should_compile/T7287.hs index e4a07b1bf9..bb9035a6ae 100644 --- a/testsuite/tests/simplCore/should_compile/T7287.hs +++ b/testsuite/tests/simplCore/should_compile/T7287.hs @@ -7,7 +7,7 @@ import GHC.Prim "int2Word#/word2Int#" forall x. int2Word# (word2Int# x) = x #-} -{- We get a legitmiate +{- We get a legitimate T7287.hs:7:3: warning: Rule int2Word#/word2Int# may never fire because diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index 5ad7dba94a..58e98937ec 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -113,7 +113,7 @@ test('T5168', ['$MAKE -s --no-print-directory T5168']) test('T5329', normal, compile, ['']) -test('T5303', normal, compile, ['']) # Coercion-optimiation test +test('T5303', normal, compile, ['']) # Coercion-optimisation test test('T5342', normal, compile, ['']) # Lint error with -prof test('T5359a', normal, compile, ['']) # Lint error with -O (OccurAnal) test('T5359b', normal, compile, ['']) # Lint error with -O (OccurAnal) diff --git a/utils/llvm-targets/gen-data-layout.sh b/utils/llvm-targets/gen-data-layout.sh index ab036a98c4..3d222d0755 100755 --- a/utils/llvm-targets/gen-data-layout.sh +++ b/utils/llvm-targets/gen-data-layout.sh @@ -71,7 +71,7 @@ function get_cpu_and_attr() { done } -# first marker to discrimiate the first line being outputted. +# first marker to discriminate the first line being outputted. FST=1 # a dummy file to use for the clang invocation. FILE=_____dummy.c |