Add isCommentHaddock

Author: philderbeast

src/GHC/Util/ApiAnnotation.hs

@@ -6,6 +6,7 @@ module GHC.Util.ApiAnnotation (
   , GHC.Util.ApiAnnotation.comments
   , isCommentMultiline
   , isCommentPragma
+  , isCommentHaddock
   , pragmas
   , flags
   , languagePragmas
@@ -67,6 +68,13 @@ isCommentPragma (L _ (EpaComment (EpaBlockComment comm) _)) =
   "{-#" `isPrefixOf` comm && "#-}" `isSuffixOf` comm
 isCommentPragma _ = False
 
+isCommentHaddock :: LEpaComment -> Bool
+isCommentHaddock (L _ (EpaComment (EpaBlockComment comm) _)) =
+  "{- |" `isPrefixOf` comm && "#-}" `isSuffixOf` comm
+isCommentHaddock (L _ (EpaComment (EpaLineComment comm) _)) =
+  "-- |" `isPrefixOf` comm || "-- ^" `isPrefixOf` comm
+isCommentHaddock _ = False
+
 -- Pragmas have the form @{-# ...#-}@.
 pragmas :: EpAnnComments -> [(LEpaComment, String)]
 pragmas x =