Update Showcase.md
parent
5531ed4e8a
commit
8d313544fe
|
@ -132,9 +132,8 @@ layoutBriDoc ast briDoc = do
|
||||||
|
|
||||||
state' <- MultiRWSS.withMultiStateS state $ layoutBriDocM briDoc'
|
state' <- MultiRWSS.withMultiStateS state $ layoutBriDocM briDoc'
|
||||||
|
|
||||||
let remainingComments =
|
let remainingComments = Map.elems (_lstate_commentsPrior state')
|
||||||
Map.elems (_lstate_commentsPrior state')
|
++ Map.elems (_lstate_commentsPost state')
|
||||||
++ Map.elems (_lstate_commentsPost state')
|
|
||||||
remainingComments
|
remainingComments
|
||||||
`forM_` (mTell . (:[]) . LayoutErrorUnusedComment . show . fmap fst)
|
`forM_` (mTell . (:[]) . LayoutErrorUnusedComment . show . fmap fst)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue