From 166265e93de140c4a33f7a61bc004fb64be18275 Mon Sep 17 00:00:00 2001 From: alexwl Date: Tue, 9 Oct 2018 23:13:07 +0300 Subject: WIP. It compiles with ghc-8.4.3, but not all features of the indexer are supported yet. --- app/Server.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'app/Server.hs') 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) -- cgit v1.2.3