Partition pragmas

Author: philderbeast

src/Hint/Comment.hs

@@ -34,14 +34,18 @@ directives = words $
     "CONLIKE LINE SPECIALIZE SPECIALISE UNPACK NOUNPACK SOURCE"
 
 data Comments = Comments
-    { commBlocks :: ![LEpaComment]
+    { commPragma :: ![LEpaComment]
+    , commBlocks :: ![LEpaComment]
+    -- TODO: Process the different types of block comments; [" |",""].
+    -- * Haddock comments
+    -- * Simple comments
     , commRuns :: ![[LEpaComment]]
     , commLines :: ![LEpaComment]
     }
 
 classifyComments :: [LEpaComment] -> Comments
-classifyComments xs = Comments blocks runs lines where
-  (blocks, singles) = partition isCommentMultiline xs
+classifyComments xs = Comments pragmas blocks runs lines where
+  (partition isCommentPragma -> (pragmas, blocks), singles) = partition isCommentMultiline xs
   (concat -> lines, runs) = partition ((== 1) . length) $ commentRuns singles
 
 commentRuns :: [LEpaComment] -> [[LEpaComment]]
@@ -109,6 +113,7 @@ commentHint _ m =
   -- b) runs of single-line comments
   -- c) single-line comments
   -- TODO: Remove (True, _) runs and then run the other checks on the rest.
+  traceShow ("pragmas", commentText <$> pragmas) $
   traceShow ("blocks", commentText <$> blocks) $
   traceShow ("runs", fmap commentText <$> rawRuns) $
   traceShow ("lines", commentText <$> lines) $
@@ -125,7 +130,7 @@ commentHint _ m =
     singleLines = sort $ commentLine <$> filter isSingle comments
     someLines = sort $ commentLine <$> filter isSingleSome comments
 
-    Comments blocks rawRuns lines = classifyComments comments
+    Comments pragmas blocks rawRuns lines = classifyComments comments
 
     runs = dropBlankLinesHint <$> rawRuns