diff options
Diffstat (limited to 'utils/check-exact/ExactPrint.hs')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 583adc682f..9de262547e 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -327,7 +327,7 @@ annotationsToComments ans kws = do doOne :: AnnKeywordId -> EPP [Comment] doOne kw = do let sps =getSpans kw ans - return $ map (mkKWComment kw ) sps + return $ concatMap (mkKWComment kw ) sps -- TODO:AZ make sure these are sorted/merged properly when the invariant for -- allocateComments is re-established. newComments <- mapM doOne kws @@ -461,7 +461,8 @@ printStringAtAnn (EpAnn _ a _) f str = printStringAtAA (f a) str printStringAtAA :: EpaLocation -> String -> EPP () printStringAtAA (EpaSpan r) s = printStringAtKw' r s -printStringAtAA (EpaDelta d) s = do +printStringAtAA (EpaDelta d cs) s = do + mapM_ (printOneComment . tokComment) cs pe <- getPriorEndD p1 <- getPosP printStringAtLsDelta d s |