Skip to content

Commit d8a8198

Browse files
committed
Minor haddock tweak
1 parent 1261489 commit d8a8198

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

ghcide/src/Development/IDE/GHC/ExactPrint.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -407,8 +407,8 @@ annotate dflags ast = do
407407
annotateDecl :: DynFlags -> LHsDecl GhcPs -> TransformT (Either String) (Anns, LHsDecl GhcPs)
408408
-- The 'parseDecl' function fails to parse 'FunBind' 'ValD's which contain
409409
-- multiple matches. To work around this, we split the single
410-
-- 'FunBind'-of-multiple-matches into multiple 'FunBind's-of-single-matchs, and
411-
-- then merge them all back together.
410+
-- 'FunBind'-of-multiple-'Match'es into multiple 'FunBind's-of-one-'Match',
411+
-- and then merge them all back together.
412412
annotateDecl dflags
413413
(L src (
414414
ValD ext fb@FunBind
@@ -435,7 +435,7 @@ annotateDecl dflags ast = do
435435
(anns, expr') <- lift $ mapLeft show $ parseDecl dflags uniq rendered
436436
let anns' = setPrecedingLines expr' 1 0 anns
437437
pure (anns', expr')
438-
------------------------------------------------------------------------------
438+
439439
------------------------------------------------------------------------------
440440

441441
-- | Print out something 'Outputable'.

0 commit comments

Comments
 (0)