Commit 244d1441 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Typos in comments

parent 8c9906c5
...@@ -100,7 +100,7 @@ There are several reasons why an Id might appear in the wiredInIds: ...@@ -100,7 +100,7 @@ There are several reasons why an Id might appear in the wiredInIds:
* errorIds, defined in coreSyn/MkCore.hs. * errorIds, defined in coreSyn/MkCore.hs.
These error functions (e.g. rUNTIME_ERROR_ID) are wired in 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 In all cases except ghcPrimIds, there is a definition site in a
library module, which may be called (e.g. in higher order situations); library module, which may be called (e.g. in higher order situations);
......
...@@ -192,7 +192,7 @@ Consider ...@@ -192,7 +192,7 @@ Consider
g = \y. SMALL...f... g = \y. SMALL...f...
Then we *can* in principle do liberate-case on 'g' (small RHS) but not 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 '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. ask for the whole group to be small enough.
......
...@@ -241,7 +241,7 @@ tcRnModuleTcRnM hsc_env hsc_src ...@@ -241,7 +241,7 @@ tcRnModuleTcRnM hsc_env hsc_src
-- If the whole module is warned about or deprecated -- If the whole module is warned about or deprecated
-- (via mod_deprec) record that in tcg_warns. If we do thereby add -- (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 let { tcg_env1 = case mod_deprec of
Just (L _ txt) -> tcg_env { tcg_warns = WarnAll txt } Just (L _ txt) -> tcg_env { tcg_warns = WarnAll txt }
Nothing -> tcg_env Nothing -> tcg_env
......
...@@ -392,7 +392,7 @@ readSymField fieldName readVal = do ...@@ -392,7 +392,7 @@ readSymField fieldName readVal = do
-- Note [Why readField] -- 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; -- typecheck/TcGenDeriv.hs) would generate inline code for parsing fields;
-- this, however, turned out to produce massive amounts of intermediate code, -- this, however, turned out to produce massive amounts of intermediate code,
-- and produced a considerable performance hit in the code generator. -- and produced a considerable performance hit in the code generator.
......
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