File tree 1 file changed +3
-3
lines changed
ghcide/src/Development/IDE/GHC
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
407
407
annotateDecl :: DynFlags -> LHsDecl GhcPs -> TransformT (Either String ) (Anns , LHsDecl GhcPs )
408
408
-- The 'parseDecl' function fails to parse 'FunBind' 'ValD's which contain
409
409
-- 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.
412
412
annotateDecl dflags
413
413
(L src (
414
414
ValD ext fb@ FunBind
@@ -435,7 +435,7 @@ annotateDecl dflags ast = do
435
435
(anns, expr') <- lift $ mapLeft show $ parseDecl dflags uniq rendered
436
436
let anns' = setPrecedingLines expr' 1 0 anns
437
437
pure (anns', expr')
438
- ------------------------------------------------------------------------------
438
+
439
439
------------------------------------------------------------------------------
440
440
441
441
-- | Print out something 'Outputable'.
You can’t perform that action at this time.
0 commit comments