diff options
author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-14 23:08:31 +0300 |
---|---|---|
committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-14 23:08:31 +0300 |
commit | 5d6e827870baf57a02e11aeae08026214a5853be (patch) | |
tree | 1276ff91b7a5e19097347408fb7ab1591ab25259 | |
parent | 730fc6b033548b329ae70a8bfe7b08620ecf9eb8 (diff) |
Fix https://github.com/alexwl/haskell-code-explorer/issues/8
-rw-r--r-- | src/HaskellCodeExplorer/Preprocessor.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/HaskellCodeExplorer/Preprocessor.hs b/src/HaskellCodeExplorer/Preprocessor.hs index 6a90ff9..8dcf548 100644 --- a/src/HaskellCodeExplorer/Preprocessor.hs +++ b/src/HaskellCodeExplorer/Preprocessor.hs @@ -23,7 +23,6 @@ import HaskellCodeExplorer.Types ) import System.FilePath (normalise,takeExtension,takeFileName) - -- | Finds locations of line pragmas and creates an index createSourceCodeTransformation :: HaskellModulePath -> T.Text -> T.Text -> (SourceCodeTransformation, T.Text) @@ -50,7 +49,14 @@ createSourceCodeTransformation currentModulePath originalSourceCode sourceCodeAf pragmaPath = filePath :: LinePragma -> HaskellFilePath currentFileExtension = takeExtension . T.unpack . getHaskellFilePath $ currentFilePath - standardHeaderFiles = ["stdc-predef.h", "cabal_macros.h", "ghcversion.h"] + standardHeaderFiles = + [ "stdc-predef.h" + , "cabal_macros.h" + , "ghcversion.h" + , "HsVersions.h" + , "ghc_boot_platform.h" + , "ghcautoconf.h" + ] hasIncludedFiles = L.any ((\path -> |