File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
ghcide/src/Development/IDE/GHC Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -407,8 +407,8 @@ annotate dflags ast = do
407407annotateDecl :: 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.
412412annotateDecl 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'.
You can’t perform that action at this time.
0 commit comments