Alan Zimmerman pushed to branch wip/az/ghc-cpp at Glasgow Haskell Compiler / GHC
Commits:
-
cf5f9dc5
by Alan Zimmerman at 2025-06-16T20:37:37+01:00
2 changed files:
Changes:
| ... | ... | @@ -294,8 +294,6 @@ processCpp loc s = do |
| 294 | 294 | acceptStateChange ar
|
| 295 | 295 | Right CppDumpState -> do
|
| 296 | 296 | return ()
|
| 297 | - -- accepting <- getAccepting
|
|
| 298 | - -- return (trace ("processCpp:" ++ show (accepting,directive)) Nothing)
|
|
| 299 | 297 | return Nothing
|
| 300 | 298 | |
| 301 | 299 | acceptStateChange :: AcceptingResult -> PP ()
|
| ... | ... | @@ -43,8 +43,6 @@ import Data.Word (Word8) |
| 43 | 43 | -- Parser Monad
|
| 44 | 44 | newtype ParserM a = ParserM {unParserM :: AlexInput -> St -> Either String (AlexInput, St, a)}
|
| 45 | 45 | |
| 46 | --- newtype P a = P { unP :: PState -> ParseResult a }
|
|
| 47 | - |
|
| 48 | 46 | instance Functor ParserM where
|
| 49 | 47 | fmap = liftM
|
| 50 | 48 |