a quick fix to increase display spead

AllureOfTheStars · Mar 23, 2011 · 592c183 · 592c183
1 parent 2eb1d33
commit 592c183
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Display2.hs b/src/Display2.hs
@@ -193,7 +193,7 @@ displayLevel session per
                            in
                              case over (loc `shift` ((sy+1) * n, 0)) of
                                Just c  ->  (attr, c)
-                               _       ->  (vision . setFG ra2 $ attr, rv))
+                               _       ->  (vision . (if ra2 == white then id else setFG ra2) $ attr, rv))
                 msg
                 (take 40 (levelName nm ++ repeat ' ') ++
                  take 10 ("$: " ++ show gold ++ repeat ' ') ++