diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-02-03 17:15:05 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-08 05:28:42 -0500 |
commit | 38c6e301165777b88cc172aafed1b33d6f42099b (patch) | |
tree | bb97c29f4d2701c32811ae98e7ea523da0bc0a2a /compiler/Language/Haskell | |
parent | bc5cbce61b57f57cadf5c25fa3e60cf34c3b98ea (diff) | |
download | haskell-38c6e301165777b88cc172aafed1b33d6f42099b.tar.gz |
Fix some notes
Diffstat (limited to 'compiler/Language/Haskell')
-rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 4 | ||||
-rw-r--r-- | compiler/Language/Haskell/Syntax/Extension.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index 049d511318..0abd64d0d8 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -539,7 +539,7 @@ data HsExpr p -- For details on above see Note [exact print annotations] in GHC.Parser.Annotation -- This case only arises when the OverloadedRecordDot langauge - -- extension is enabled. See Note [Record Selectors in the AST]. + -- extension is enabled. See Note [Record selectors in the AST]. | HsGetField { gf_ext :: XGetField p , gf_expr :: LHsExpr p @@ -549,7 +549,7 @@ data HsExpr p -- | Record field selector. e.g. @(.x)@ or @(.x.y)@ -- -- This case only arises when the OverloadedRecordDot langauge - -- extensions is enabled. See Note [Record Selectors in the AST]. + -- extensions is enabled. See Note [Record selectors in the AST]. -- - 'GHC.Parser.Annotation.AnnKeywordId' : 'GHC.Parser.Annotation.AnnOpenP' -- 'GHC.Parser.Annotation.AnnDot', 'GHC.Parser.Annotation.AnnCloseP' diff --git a/compiler/Language/Haskell/Syntax/Extension.hs b/compiler/Language/Haskell/Syntax/Extension.hs index 9c0cc0408b..6a33787d87 100644 --- a/compiler/Language/Haskell/Syntax/Extension.hs +++ b/compiler/Language/Haskell/Syntax/Extension.hs @@ -114,7 +114,7 @@ data DataConCantHappen instance Outputable DataConCantHappen where ppr = dataConCantHappen --- | Eliminate a 'DataConCantHappen'. See Note [Constructor cannot happen]. +-- | Eliminate a 'DataConCantHappen'. See Note [Constructor cannot occur]. dataConCantHappen :: DataConCantHappen -> a dataConCantHappen x = case x of {} |