From 5d6e827870baf57a02e11aeae08026214a5853be Mon Sep 17 00:00:00 2001 From: alexwl Date: Sun, 14 Oct 2018 23:08:31 +0300 Subject: Fix https://github.com/alexwl/haskell-code-explorer/issues/8 --- src/HaskellCodeExplorer/Preprocessor.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/HaskellCodeExplorer') 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 -> -- cgit v1.2.3