Fix 2 space leaks (#2774)

* Fix a space leak in hls-graph

* Fix leak in ExportsMap and optimize

Author: pepeiborra

ghcide/src/Development/IDE/Types/Exports.hs

@@ -22,7 +22,7 @@ import qualified Data.HashMap.Strict         as Map
 import           Data.HashSet                (HashSet)
 import qualified Data.HashSet                as Set
 import           Data.Hashable               (Hashable)
-import           Data.List                   (isSuffixOf)
+import           Data.List                   (isSuffixOf, foldl')
 import           Data.Text                   (Text, pack)
 import           Development.IDE.GHC.Compat
 import           Development.IDE.GHC.Orphans ()
@@ -32,8 +32,8 @@ import           HieDb
 
 
 data ExportsMap = ExportsMap
-    { getExportsMap       :: HashMap IdentifierText (HashSet IdentInfo)
-    , getModuleExportsMap :: HashMap ModuleNameText (HashSet IdentInfo)
+    { getExportsMap       :: !(HashMap IdentifierText (HashSet IdentInfo))
+    , getModuleExportsMap :: !(HashMap ModuleNameText (HashSet IdentInfo))
     }
     deriving (Show)
 
@@ -134,13 +134,11 @@ createExportsMapMg modGuts = do
       concatMap (fmap (second Set.fromList) . unpackAvail getModuleName) (mg_exports mi)
 
 updateExportsMapMg :: [ModGuts] -> ExportsMap -> ExportsMap
-updateExportsMapMg modGuts old =
-    old' <> new
+updateExportsMapMg modGuts old = old' <> new
     where
         new = createExportsMapMg modGuts
         old' = deleteAll old (Map.keys $ getModuleExportsMap new)
-        deleteAll = foldr deleteEntriesForModule
-
+        deleteAll = foldl' (flip deleteEntriesForModule)
 
 createExportsMapTc :: [TcGblEnv] -> ExportsMap
 createExportsMapTc modIface = do

hls-graph/src/Development/IDE/Graph/Internal/Types.hs

@@ -120,12 +120,12 @@ getDatabaseValues = atomically
                   . databaseValues
 
 data Status
-    = Clean Result
+    = Clean !Result
     | Dirty (Maybe Result)
     | Running {
         runningStep   :: !Step,
         runningWait   :: !(IO ()),
-        runningResult :: Result,
+        runningResult :: Result,     -- LAZY
         runningPrev   :: !(Maybe Result)
         }
 
@@ -145,7 +145,7 @@ data Result = Result {
     resultVisited   :: !Step, -- ^ the step when it was last looked up
     resultDeps      :: !ResultDeps,
     resultExecution :: !Seconds, -- ^ How long it took, last time it ran
-    resultData      :: BS.ByteString
+    resultData      :: !BS.ByteString
     }
 
 data ResultDeps = UnknownDeps | AlwaysRerunDeps ![Key] | ResultDeps ![Key]