Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fix highlighting in terminal frontends

  • Loading branch information...
commit ff6b65dc2770a5de7a0a3f8cf230167a080b4581 1 parent dc34ab7
@Mikolaj Mikolaj authored
Showing with 3 additions and 1 deletion.
  1. +2 −0  src/Display/Vty.hs
  2. +1 −1  src/Display2.hs
View
2  src/Display/Vty.hs
@@ -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
2  src/Display2.hs
@@ -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 ' ') ++
Please sign in to comment.
Something went wrong with that request. Please try again.