diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2018-12-13 18:31:39 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2018-12-13 18:31:39 +0300 |
| commit | 27024fa57469af22d5b39309042f203c7b2efc5e (patch) | |
| tree | d5043e33da3c30be56b094c9c41092e1a7940f4b /app | |
| parent | 7488749af2408b6509776cfb54c150a834b55314 (diff) | |
Replace Vector.fromList with Vector.fromListN
Vector.fromListN allocates less memory and allows to remove the call to Vector.force before compaction ('compact $ Vector.fromList [1,2,3]' crashes, 'compact $ Vector.fromListN 3 [1,2,3]' doesn't crash)
Diffstat (limited to 'app')
| -rw-r--r-- | app/Server.hs | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/app/Server.hs b/app/Server.hs index f6e1d6d..3bfebd8 100644 --- a/app/Server.hs +++ b/app/Server.hs @@ -374,15 +374,9 @@ loadPackageInfo config path = ( updateEachModuleInfo packageInfo (\modInfo -> - let source = - HCE.source :: HCE.CompactModuleInfo -> V.Vector T.Text - in if not enableExpressionInfo - then modInfo - { 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 {HCE.source = V.force $ source modInfo}) + if not enableExpressionInfo + then modInfo {HCE.exprInfoMap = IVM.empty} + else modInfo) , path) Left e -> return . Left $ (e, path) |