Commit 22a03e72 authored by Gabor Greif's avatar Gabor Greif 💬

Typos [ci skip]

parent 8e72a2ee
......@@ -1497,7 +1497,7 @@ Also see https://ghc.haskell.org/trac/ghc/wiki/OneShot.
Note [magicDictId magic]
~~~~~~~~~~~~~~~~~~~~~~~~~
The identifier `magicDict` is just a place-holder, which is used to
implement a primitve that we cannot define in Haskell but we can write
implement a primitive that we cannot define in Haskell but we can write
in Core. It is declared with a place-holder type:
magicDict :: forall a. a
......
......@@ -1508,7 +1508,7 @@ foreign import WINDOWS_CCONV unsafe "windows.h GetModuleFileNameW"
-- is located at. See Trac #11759.
getFinalPath :: FilePath -> IO (Maybe FilePath)
getFinalPath name = do
dllHwnd <- failIfNull "LoadLibray" $ loadLibrary "kernel32.dll"
dllHwnd <- failIfNull "LoadLibrary" $ loadLibrary "kernel32.dll"
-- Note: The API GetFinalPathNameByHandleW is only available starting from Windows Vista.
-- This means that we can't bind directly to it since it may be missing.
-- Instead try to find it's address at runtime and if we don't succeed consider the
......
......@@ -518,7 +518,7 @@ because they don't do anything! But we have two exceptions:
(b) is sometimes used to give a type sig for,
or an occurrence of, a variable on the RHS
* A strict patten binding; that is, one with an outermost bang
* A strict pattern binding; that is, one with an outermost bang
!Just _ = e
This can fail, so unlike the lazy variant, it is not a no-op.
Moreover, Trac #13646 argues that even for single constructor
......
......@@ -432,7 +432,7 @@ rnPatAndThen mk (NPlusKPat rdr (L l lit) _ _ _ _)
; (lit', _) <- liftCpsFV $ rnOverLit lit -- See Note [Negative zero]
-- We skip negateName as
-- negative zero doesn't make
-- sense in n + k pattenrs
-- sense in n + k patterns
; minus <- liftCpsFV $ lookupSyntaxName minusName
; ge <- liftCpsFV $ lookupSyntaxName geName
; return (NPlusKPat (L (nameSrcSpan new_name) new_name)
......
......@@ -1952,8 +1952,8 @@ trim_pats env fn (SI { si_n_specs = done_spec_count }) pats
-- segment of this list
pat_cons :: CallPat -> Int
-- How many data consturorst of literals are in
-- the patten. More data-cons => less general
-- How many data constructors of literals are in
-- the pattern. More data-cons => less general
pat_cons (qs, ps) = foldr ((+) . n_cons) 0 ps
where
q_set = mkVarSet qs
......
......@@ -336,7 +336,7 @@ getByte :: BinHandle -> IO Word8
getByte h = getWord8 h
-- -----------------------------------------------------------------------------
-- Primitve Word writes
-- Primitive Word writes
instance Binary Word8 where
put_ = putWord8
......@@ -355,7 +355,7 @@ instance Binary Word64 where
get h = getWord64 h
-- -----------------------------------------------------------------------------
-- Primitve Int writes
-- Primitive Int writes
instance Binary Int8 where
put_ h w = put_ h (fromIntegral w :: Word8)
......
......@@ -2835,7 +2835,7 @@ deleteThread_(Capability *cap, StgTSO *tso)
/* -----------------------------------------------------------------------------
raiseExceptionHelper
This function is called by the raise# primitve, just so that we can
This function is called by the raise# primitive, just so that we can
move some of the tricky bits of raising an exception from C-- into
C. Who knows, it might be a useful re-useable thing here too.
-------------------------------------------------------------------------- */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment