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. ...@@ -1497,7 +1497,7 @@ Also see https://ghc.haskell.org/trac/ghc/wiki/OneShot.
Note [magicDictId magic] Note [magicDictId magic]
~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~
The identifier `magicDict` is just a place-holder, which is used to 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: in Core. It is declared with a place-holder type:
magicDict :: forall a. a magicDict :: forall a. a
......
...@@ -1508,7 +1508,7 @@ foreign import WINDOWS_CCONV unsafe "windows.h GetModuleFileNameW" ...@@ -1508,7 +1508,7 @@ foreign import WINDOWS_CCONV unsafe "windows.h GetModuleFileNameW"
-- is located at. See Trac #11759. -- is located at. See Trac #11759.
getFinalPath :: FilePath -> IO (Maybe FilePath) getFinalPath :: FilePath -> IO (Maybe FilePath)
getFinalPath name = do 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. -- 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. -- 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 -- 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: ...@@ -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, (b) is sometimes used to give a type sig for,
or an occurrence of, a variable on the RHS 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 !Just _ = e
This can fail, so unlike the lazy variant, it is not a no-op. This can fail, so unlike the lazy variant, it is not a no-op.
Moreover, Trac #13646 argues that even for single constructor Moreover, Trac #13646 argues that even for single constructor
......
...@@ -432,7 +432,7 @@ rnPatAndThen mk (NPlusKPat rdr (L l lit) _ _ _ _) ...@@ -432,7 +432,7 @@ rnPatAndThen mk (NPlusKPat rdr (L l lit) _ _ _ _)
; (lit', _) <- liftCpsFV $ rnOverLit lit -- See Note [Negative zero] ; (lit', _) <- liftCpsFV $ rnOverLit lit -- See Note [Negative zero]
-- We skip negateName as -- We skip negateName as
-- negative zero doesn't make -- negative zero doesn't make
-- sense in n + k pattenrs -- sense in n + k patterns
; minus <- liftCpsFV $ lookupSyntaxName minusName ; minus <- liftCpsFV $ lookupSyntaxName minusName
; ge <- liftCpsFV $ lookupSyntaxName geName ; ge <- liftCpsFV $ lookupSyntaxName geName
; return (NPlusKPat (L (nameSrcSpan new_name) new_name) ; return (NPlusKPat (L (nameSrcSpan new_name) new_name)
......
...@@ -1952,8 +1952,8 @@ trim_pats env fn (SI { si_n_specs = done_spec_count }) pats ...@@ -1952,8 +1952,8 @@ trim_pats env fn (SI { si_n_specs = done_spec_count }) pats
-- segment of this list -- segment of this list
pat_cons :: CallPat -> Int pat_cons :: CallPat -> Int
-- How many data consturorst of literals are in -- How many data constructors of literals are in
-- the patten. More data-cons => less general -- the pattern. More data-cons => less general
pat_cons (qs, ps) = foldr ((+) . n_cons) 0 ps pat_cons (qs, ps) = foldr ((+) . n_cons) 0 ps
where where
q_set = mkVarSet qs q_set = mkVarSet qs
......
...@@ -336,7 +336,7 @@ getByte :: BinHandle -> IO Word8 ...@@ -336,7 +336,7 @@ getByte :: BinHandle -> IO Word8
getByte h = getWord8 h getByte h = getWord8 h
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Primitve Word writes -- Primitive Word writes
instance Binary Word8 where instance Binary Word8 where
put_ = putWord8 put_ = putWord8
...@@ -355,7 +355,7 @@ instance Binary Word64 where ...@@ -355,7 +355,7 @@ instance Binary Word64 where
get h = getWord64 h get h = getWord64 h
-- ----------------------------------------------------------------------------- -- -----------------------------------------------------------------------------
-- Primitve Int writes -- Primitive Int writes
instance Binary Int8 where instance Binary Int8 where
put_ h w = put_ h (fromIntegral w :: Word8) put_ h w = put_ h (fromIntegral w :: Word8)
......
...@@ -2835,7 +2835,7 @@ deleteThread_(Capability *cap, StgTSO *tso) ...@@ -2835,7 +2835,7 @@ deleteThread_(Capability *cap, StgTSO *tso)
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
raiseExceptionHelper 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 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. 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