diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-09 23:13:07 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-09 23:13:07 +0300 |
| commit | 166265e93de140c4a33f7a61bc004fb64be18275 (patch) | |
| tree | 7773bb4f34604637ad42a9d7948593737f2b3c9d /app | |
| parent | f38daf67730fe31b865528eb972c619857e62a5c (diff) | |
WIP. It compiles with ghc-8.4.3, but not all features of the indexer are supported yet.
Diffstat (limited to 'app')
| -rw-r--r-- | app/Indexer.hs | 5 | ||||
| -rw-r--r-- | app/Server.hs | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/app/Indexer.hs b/app/Indexer.hs index 083c94d..3a23df5 100644 --- a/app/Indexer.hs +++ b/app/Indexer.hs @@ -73,7 +73,10 @@ data Compression | NoCompression deriving (Show, Eq) -#if MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) +#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) +ghcVersion :: Version +ghcVersion = Version {versionBranch = [8, 4, 3, 0], versionTags = []} +#elif MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) ghcVersion :: Version ghcVersion = Version {versionBranch = [8, 2, 2, 0], versionTags = []} #else diff --git a/app/Server.hs b/app/Server.hs index 39f550f..fd70454 100644 --- a/app/Server.hs +++ b/app/Server.hs @@ -343,9 +343,11 @@ loadPackageInfo config path = HCE.source :: HCE.CompactModuleInfo -> V.Vector T.Text in if not enableExpressionInfo then modInfo - { HCE.exprInfoMap = IVM.empty + { HCE.exprInfoMap = IVM.empty + , HCE.source = V.force $ source modInfo + -- 'force' fixes this error: Data.Vector.Mutable: uninitialised element CallStack (from HasCallStack): error, called at ./Data/Vector/Mutable.hs:188:17 in vector-0.12.0.1-GGZqQZyzchy8YFPCF67wxL:Data.Vector.Mutable } - else modInfo) + else modInfo {HCE.source = V.force $ source modInfo}) , path) Left e -> return . Left $ (e, path) |