Update Showcase.md

pull/3/head
Lennart Spitzner 2016-08-12 15:33:45 +02:00 committed by GitHub
parent 5531ed4e8a
commit 8d313544fe
1 changed files with 2 additions and 3 deletions

View File

@ -132,8 +132,7 @@ 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)