summaryrefslogtreecommitdiff
path: root/compiler/Language/Haskell
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2022-02-03 17:15:05 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-02-08 05:28:42 -0500
commit38c6e301165777b88cc172aafed1b33d6f42099b (patch)
treebb97c29f4d2701c32811ae98e7ea523da0bc0a2a /compiler/Language/Haskell
parentbc5cbce61b57f57cadf5c25fa3e60cf34c3b98ea (diff)
downloadhaskell-38c6e301165777b88cc172aafed1b33d6f42099b.tar.gz
Fix some notes
Diffstat (limited to 'compiler/Language/Haskell')
-rw-r--r--compiler/Language/Haskell/Syntax/Expr.hs4
-rw-r--r--compiler/Language/Haskell/Syntax/Extension.hs2
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 {}