aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authoralexwl <alexey.a.kiryushin@gmail.com>2018-10-14 23:08:31 +0300
committeralexwl <alexey.a.kiryushin@gmail.com>2018-10-14 23:08:31 +0300
commit5d6e827870baf57a02e11aeae08026214a5853be (patch)
tree1276ff91b7a5e19097347408fb7ab1591ab25259 /src
parent730fc6b033548b329ae70a8bfe7b08620ecf9eb8 (diff)
Fix https://github.com/alexwl/haskell-code-explorer/issues/8
Diffstat (limited to 'src')
-rw-r--r--src/HaskellCodeExplorer/Preprocessor.hs10
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 ->