From 9f5fcfed54820fed02b319ec4fb94a5d8b0d2ce3 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 3 May 2002 13:09:47 +0000
Subject: [PATCH] [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).

---
 ghc/compiler/utils/Binary.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.7.10.4