From 5d6e827870baf57a02e11aeae08026214a5853be Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
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')
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