diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-03-02 14:21:58 +0530 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-03-29 13:07:22 -0400 |
| commit | 789add55e0f5648981ffba77135b2a525369bf79 (patch) | |
| tree | 0ada054d9b11af3c650a53f7b076db1cfb147d64 /compiler/GHC/Rename | |
| parent | 2c12627caba908153bf0af92459d08e399aa8aad (diff) | |
| download | haskell-789add55e0f5648981ffba77135b2a525369bf79.tar.gz | |
Fix all invalid haddock comments in the compiler
Fixes #20935 and #20924
Diffstat (limited to 'compiler/GHC/Rename')
| -rw-r--r-- | compiler/GHC/Rename/Expr.hs | 6 | ||||
| -rw-r--r-- | compiler/GHC/Rename/Module.hs | 6 |
2 files changed, 7 insertions, 5 deletions
diff --git a/compiler/GHC/Rename/Expr.hs b/compiler/GHC/Rename/Expr.hs index f1cb766077..d8b2436dc1 100644 --- a/compiler/GHC/Rename/Expr.hs +++ b/compiler/GHC/Rename/Expr.hs @@ -542,7 +542,8 @@ rnExpr e@(HsStatic _ expr) = do let fvExpr' = filterNameSet (nameIsLocalOrFrom mod) fvExpr return (HsStatic fvExpr' expr', fvExpr) -{- ********************************************************************* +{- +************************************************************************ * * Arrow notation * * @@ -557,7 +558,8 @@ rnExpr (HsProc x pat body) rnExpr other = pprPanic "rnExpr: unexpected expression" (ppr other) -- HsWrap -{- ********************************************************************* +{- +************************************************************************ * * Operator sections * * diff --git a/compiler/GHC/Rename/Module.hs b/compiler/GHC/Rename/Module.hs index 9fbbcacdab..29937ea5f0 100644 --- a/compiler/GHC/Rename/Module.hs +++ b/compiler/GHC/Rename/Module.hs @@ -455,7 +455,7 @@ checkCanonicalInstances cls poly_ty mbinds = do "https://gitlab.haskell.org/ghc/ghc/-/wikis/proposal/semigroup-monoid" where - -- | Warn about unsound/non-canonical 'Applicative'/'Monad' instance + -- Warn about unsound/non-canonical 'Applicative'/'Monad' instance -- declarations. Specifically, the following conditions are verified: -- -- In 'Monad' instances declarations: @@ -501,7 +501,7 @@ checkCanonicalInstances cls poly_ty mbinds = do | otherwise = return () - -- | Check whether Monoid(mappend) is defined in terms of + -- Check whether Monoid(mappend) is defined in terms of -- Semigroup((<>)) (and not the other way round). Specifically, -- the following conditions are verified: -- @@ -540,7 +540,7 @@ checkCanonicalInstances cls poly_ty mbinds = do | otherwise = return () - -- | test whether MatchGroup represents a trivial \"lhsName = rhsName\" + -- test whether MatchGroup represents a trivial \"lhsName = rhsName\" -- binding, and return @Just rhsName@ if this is the case isAliasMG :: MatchGroup GhcRn (LHsExpr GhcRn) -> Maybe Name isAliasMG MG {mg_alts = (L _ [L _ (Match { m_pats = [] |