Permalink
Browse files

fix highlighting in terminal frontends

  • Loading branch information...
1 parent dc34ab7 commit ff6b65dc2770a5de7a0a3f8cf230167a080b4581 @Mikolaj Mikolaj committed Mar 21, 2011
Showing with 3 additions and 1 deletion.
  1. +2 −0 src/Display/Vty.hs
  2. +1 −1 src/Display2.hs
View
@@ -61,6 +61,8 @@ nextEvent session =
e <- V.next_event session
maybe (nextEvent session) return (keyTranslate e)
+type AttrColor = Color
+
attr = def_attr
setBold a = with_style a bold
View
@@ -194,7 +194,7 @@ displayLevel session per
in
case over (loc `shift` ((sy+1) * n, 0)) of
Just c -> (attr, c)
- _ -> (ra . vision $ attr, rv))
+ _ -> (vision . ra $ attr, rv))
msg
(take 40 (levelName nm ++ repeat ' ') ++
take 10 ("$: " ++ show gold ++ repeat ' ') ++

0 comments on commit ff6b65d

Please sign in to comment.