Commit 80d4a033 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Typos in comments

parent 7ddbdfd3
......@@ -1024,7 +1024,7 @@ mkIfaceExports exports
sort_flds = sortBy (stableNameCmp `on` flSelector)
{-
Note [Orignal module]
Note [Original module]
~~~~~~~~~~~~~~~~~~~~~
Consider this:
module X where { data family T }
......
......@@ -1572,7 +1572,7 @@ respectively. Initially, we just store the "standard" name (PrelNames.fromInteg
fromRationalName etc), but the renamer changes this to the appropriate user
name if Opt_NoImplicitPrelude is on. That is what lookupSyntaxName does.
We treat the orignal (standard) names as free-vars too, because the type checker
We treat the original (standard) names as free-vars too, because the type checker
checks the type of the user thing against the type of the standard thing.
-}
......
......@@ -1123,7 +1123,7 @@ error to report. So this capture-the-emit dance isn't as stupid as it
looks :-).
However suppose we throw an exception inside an invocation of
captureConstraints. Then we'll discard all the costraints. But some
captureConstraints. Then we'll discard all the constraints. But some
of those contraints might be "variable out of scope" Hole constraints,
and that might have been the actual original cause of the exception!
For example (Trac #12529):
......
......@@ -607,7 +607,7 @@ data InertCans -- See Note [Detailed InertCans Invariants] for more
, inert_safehask :: DictMap Ct
-- Failed dictionary resolution due to Safe Haskell overlapping
-- instances restriction. We keep this seperate from inert_dicts
-- instances restriction. We keep this separate from inert_dicts
-- as it doesn't cause compilation failure, just safe inference
-- failure.
--
......
......@@ -742,7 +742,7 @@ tcTyClDecl1 _parent roles_info
, tcdATs = ats, tcdATDefs = at_defs })
= ASSERT( isNothing _parent )
do { clas <- fixM $ \ clas ->
-- We need the knot becase 'clas' is passed into tcClassATs
-- We need the knot because 'clas' is passed into tcClassATs
tcTyClTyVars class_name $ \ binders res_kind ->
do { MASSERT( isConstraintKind res_kind )
; traceTc "tcClassDecl 1" (ppr class_name $$ ppr binders)
......
......@@ -303,7 +303,7 @@ data InferResult
, ir_lvl :: TcLevel -- See Note [TcLevel of ExpType] in TcMType
, ir_inst :: Bool -- True <=> deeply instantiate before returning
-- i.e. return a RhoType
-- False <=> do not instantaite before returning
-- False <=> do not instantiate before returning
-- i.e. return a SigmaType
, ir_ref :: IORef (Maybe TcType) }
-- The type that fills in this hole should be a Type,
......
......@@ -35,7 +35,7 @@ import Control.Monad
-- |Create a localised variant of a name, using the provided function to transform its `OccName`.
--
-- If the name external, encode the orignal name's module into the new 'OccName'. The result is
-- If the name external, encode the original name's module into the new 'OccName'. The result is
-- always an internal system name.
--
mkLocalisedName :: (Maybe String -> OccName -> OccName) -> Name -> VM Name
......
......@@ -330,7 +330,7 @@ vectTypeEnv tycons vectTypeDecls vectClassDecls
}
-- Add a mapping from the original to vectorised type constructor to the vectorisation map.
-- Unless the type constructor is abstract, also mappings from the orignal's data constructors
-- Unless the type constructor is abstract, also mappings from the original's data constructors
-- to the vectorised type's data constructors.
--
-- We have three cases: (1) original and vectorised type constructor are the same, (2) the
......
......@@ -124,7 +124,7 @@ data OptKind a -- kind of cmd line arg (internal use only):
-- second argument.
usageInfo :: String -- header
-> [OptDescr a] -- option descriptors
-> String -- nicely formatted decription of options
-> String -- nicely formatted description of options
usageInfo header optDescr = unlines (header:table)
where (ss,ls,ds) = (unzip3 . concatMap fmtOpt) optDescr
table = zipWith3 paste (sameLen ss) (sameLen ls) ds
......
-- !!! test for foreign import dynamic/wrapper, orignally by Alastair Reid,
-- !!! test for foreign import dynamic/wrapper, originally by Alastair Reid,
-- with a few changes to get it to run on GHC by Simon Marlow.
import Foreign hiding ( unsafePerformIO )
......
......@@ -63,8 +63,8 @@ hence
Now things are delicate. Either the instance Monoid (DC d) will fire or,
if we are lucky, we might spot that (Monoid (DC d)) is a superclass of
a given. But now (Decl 15) we add superclasses lazily, so that is less
likely to happen, and was always fragile. So include (MOnoid d) in the
signature, as was the case in the orignal ticket.
likely to happen, and was always fragile. So include (Monoid d) in the
signature, as was the case in the original ticket.
-}
......
--module Parse(Parse(..),whiteSpace,seperatedBy) where
--module Parse(Parse(..),whiteSpace,separatedBy) where
--import StdLib
module ShouldSucceed where
......@@ -27,14 +27,14 @@ instance Parse Char where
forced n = True
instance (Parse a) => Parse [a] where
parseType more = (map parseLine (seperatedBy ',' (l++",")),out)
parseType more = (map parseLine (separatedBy ',' (l++",")),out)
where (l,']':out) = span' (\x->x/=']') (tail more)
forced = all forced
seperatedBy :: Char -> String -> [String]
seperatedBy ch [] = []
seperatedBy ch xs = twaddle ch (span' (\x->x/=ch) xs)
where twaddle ch (l,_:r) = l:seperatedBy ch r
separatedBy :: Char -> String -> [String]
separatedBy ch [] = []
separatedBy ch xs = twaddle ch (span' (\x->x/=ch) xs)
where twaddle ch (l,_:r) = l:separatedBy ch r
whiteSpace :: String -> String
whiteSpace = dropWhile isSpace
......
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