initial setup for combining pre-processor and lexer

src/Language/SystemVerilog/Parser/Preprocess.hs

@@ -159,11 +159,6 @@ pp (Token Spe_Directive str pos : tokens) = do
                     return $ replacement ++ tokens'
 
 pp (Token Spe_Newline _ _ : tokens) = pp tokens
-pp (Token Spe_Comment _ _ : tokens) = pp tokens
-
-pp (Token Spe_CommentBegin _ _ : tokens) =
-    pp $ tail $ dropWhile (not . isEnd) tokens
-    where isEnd (Token t _ _ ) = t == Spe_CommentEnd
 
 pp (token : tokens) = do
     condStack <- gets ppCondStack

src/Language/SystemVerilog/Parser/Tokens.hs

@@ -334,9 +334,6 @@ data TokenName
   | Sym_amp_amp_amp
   | Sym_lt_lt_lt_eq
   | Sym_gt_gt_gt_eq
-  | Spe_Comment
-  | Spe_CommentBegin
-  | Spe_CommentEnd
   | Spe_Directive
   | Spe_Newline
   | Unknown