From: simonmar <unknown>
Date: Fri, 3 May 2002 13:09:47 +0000 (+0000)
Subject: [project @ 2002-05-03 13:09:47 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2056
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9f5fcfed54820fed02b319ec4fb94a5d8b0d2ce3;p=ghc-hetmet.git

[project @ 2002-05-03 13:09:47 by simonmar]
In the get method for FastString, do the dictionary lookup strictly
(speeds things up and reduces the residency by a few k).
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 764f918..4bef25a 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -688,4 +688,4 @@ instance Binary FastString where
 
   get bh = do 
 	j <- get bh
-	case getUserData bh of (_, _, _, arr) -> return (arr ! j)
+	case getUserData bh of (_, _, _, arr) -> return $! (arr ! j)