解析haskell模块时忽略指令

Question

我使用haskell-src-exts包来解析模块内的import声明，这是我正在使用的代码

importNames :: FilePath -> IO ()
importNames fname =  do
let pMode = parseMode fname
parsed <- P.parseFileWithMode pMode fname
case parsed of
  P.ParseOk m -> do
    let names  = modNames m
    putStrLn $ P.prettyPrint
  P.ParseFailed srcLoc message -> do
    putStrLn $ unlines [P.prettyPrint srcLoc , message]

-- | Extract all imports from a Module
extractImports :: Module -> [ImportDecl]
extractImports (Module _ _ _ _ _ imports _) = imports

modNames :: Module -> S.Set ModuleName
modNames m = foldr (\i r -> S.insert (importModule i) r) 
             S.empty $ extractImports m

一旦解析器命中#ifdef指令，这就会失效。

这应该发生吗，haskell-src-exts可以忽略这些并继续吗？

感谢。

Answer 1

你真的不想这样做。如果忽略CPP，使用CPP编写的Haskell模块通常不会解析，更不用说有意义了。作为Gurkenglas suggests，解决方案是在尝试解析文件之前运行预处理器。