Commit 9f5fcfed authored by simonmar's avatar simonmar
Browse files

[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).
parent 8288caf0
......@@ -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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment