diff options
Diffstat (limited to 'utils/check-ppr/Main.hs')
| -rw-r--r-- | utils/check-ppr/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/check-ppr/Main.hs b/utils/check-ppr/Main.hs index c08f6e755d..542a35780e 100644 --- a/utils/check-ppr/Main.hs +++ b/utils/check-ppr/Main.hs @@ -101,8 +101,8 @@ parseOneFile libdir fileName = do getPragmas :: Located HsModule -> String getPragmas (L _ (HsModule { hsmodAnn = anns'})) = pragmaStr where - tokComment (L _ (AnnComment (AnnBlockComment s) _)) = s - tokComment (L _ (AnnComment (AnnLineComment s) _)) = s + tokComment (L _ (EpaComment (EpaBlockComment s) _)) = s + tokComment (L _ (EpaComment (EpaLineComment s) _)) = s tokComment _ = "" cmp (L l1 _) (L l2 _) = compare (anchor l1) (anchor l2) |