Permalink
Browse files

a quick fix to increase display spead

  • Loading branch information...
1 parent 2eb1d33 commit 592c183463ebf7fd3d3d3f7637f7d5209171407c @Mikolaj Mikolaj committed Mar 23, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Display2.hs
View
@@ -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 ' ') ++

0 comments on commit 592c183

Please sign in to comment.