X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=45cbdc095fd468851ed0b9e272e10fa35c69b6b4;hb=a8407757462804dfd51708d6cfdda0417a91bf8e;hp=ebdeb327adbf97096a78e1418b1b03e81335efef;hpb=75736ff2a36d165eed7c216b3fd510d525094b79;p=ghc-hetmet.git

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index ebdeb32..45cbdc0 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -103,18 +103,18 @@ data PersistentLinkerState
 	-- When a new Unlinked is linked into the running image, or an existing
 	-- module in the image is replaced, the itbl_env must be updated
 	-- appropriately.
-        itbl_env    :: ItblEnv,
+        itbl_env    :: !ItblEnv,
 
 	-- The currently loaded interpreted modules (home package)
-	bcos_loaded :: [Linkable],
+	bcos_loaded :: ![Linkable],
 
 	-- And the currently-loaded compiled modules (home package)
-	objs_loaded :: [Linkable],
+	objs_loaded :: ![Linkable],
 
 	-- The currently-loaded packages; always object code
 	-- Held, as usual, in dependency order; though I am not sure if
 	-- that is really important
-	pkgs_loaded :: [PackageId]
+	pkgs_loaded :: ![PackageId]
      }
 
 emptyPLS :: DynFlags -> PersistentLinkerState