aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--app/Server.hs12
-rw-r--r--src/HaskellCodeExplorer/Types.hs2
2 files changed, 4 insertions, 10 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)
diff --git a/src/HaskellCodeExplorer/Types.hs b/src/HaskellCodeExplorer/Types.hs
index f94b3af..a21a483 100644
--- a/src/HaskellCodeExplorer/Types.hs
+++ b/src/HaskellCodeExplorer/Types.hs
@@ -549,7 +549,7 @@ instance Serialize IdentifierOccurrenceSort
instance Serialize TypeComponent
instance (Serialize a) => Serialize (V.Vector a) where
put = put . V.toList
- get = V.fromList <$> get
+ get = (\l -> V.fromListN (L.length l) l) <$> get
instance Serialize Type
instance Serialize ExpressionInfo
instance Serialize LocatableEntity