diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-14 18:56:06 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-10-14 18:56:06 +0300 |
| commit | 9c5cb27828bcc3cbe505fba8ef8e6db0e87d2a9c (patch) | |
| tree | d558ebcf13b4f5d42d27efea30e5f5697a0f456f /app/Server.hs | |
| parent | 1b8661d36ce9dcbcd5a833a79357445fe734426d (diff) | |
| parent | 2b5cbccffa21d9f80f804bd9d95d4527ce3246b7 (diff) | |
Merge branch 'ghc-8.4.3'
Diffstat (limited to 'app/Server.hs')
| -rw-r--r-- | app/Server.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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) |