Commit 5ca623a5 authored by Ryan Scott's avatar Ryan Scott

Minor typos

parent 979f085c
......@@ -746,8 +746,8 @@ simplifyDeriv pred tvs thetas
Note [Overlap and deriving]
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Consider some overlapping instances:
data Show a => Show [a] where ..
data Show [Char] where ...
instance Show a => Show [a] where ..
instance Show [Char] where ...
Now a data type with deriving:
data T a = MkT [a] deriving( Show )
......
......@@ -442,7 +442,7 @@ tcExtendKindEnvList :: [(Name, TcTyThing)] -> TcM r -> TcM r
-- ATcTyCon or APromotionErr
-- No need to update the global tyvars, or tcl_th_bndrs, or tcl_rdr
tcExtendKindEnvList things thing_inside
= do { traceTc "txExtendKindEnvList" (ppr things)
= do { traceTc "tcExtendKindEnvList" (ppr things)
; updLclEnv upd_env thing_inside }
where
upd_env env = env { tcl_env = extendNameEnvList (tcl_env env) things }
......@@ -450,7 +450,7 @@ tcExtendKindEnvList things thing_inside
tcExtendKindEnv :: NameEnv TcTyThing -> TcM r -> TcM r
-- A variant of tcExtendKindEvnList
tcExtendKindEnv extra_env thing_inside
= do { traceTc "txExtendKindEnv" (ppr extra_env)
= do { traceTc "tcExtendKindEnv" (ppr extra_env)
; updLclEnv upd_env thing_inside }
where
upd_env env = env { tcl_env = tcl_env env `plusNameEnv` extra_env }
......
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