jlamothe/hamming
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

actually display the cursor

This commit is contained in:
Jonathan Lamothe 2024-08-01 16:17:47 -04:00
parent f949a65281
commit 09c8953728
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Hamming/App.hs
View File

@ -27,7 +27,7 @@ License along with this program. If not, see
module Hamming.App (mainApp, initialState) where module Hamming.App (mainApp, initialState) where
import Brick.AttrMap (attrMap) import Brick.AttrMap (attrMap)
import Brick.Main (App (..), neverShowCursor) import Brick.Main (App (..), showFirstCursor)
import Brick.Util (fg, style) import Brick.Util (fg, style)
import Graphics.Vty.Attributes (bold) import Graphics.Vty.Attributes (bold)
import Graphics.Vty.Attributes.Color (green, red) import Graphics.Vty.Attributes.Color (green, red)
@ -40,7 +40,7 @@ import Hamming.App.Widgets
mainApp :: App AppState () ResName mainApp :: App AppState () ResName
mainApp = App mainApp = App
{ appDraw = drawFunc { appDraw = drawFunc
, appChooseCursor = neverShowCursor , appChooseCursor = showFirstCursor
, appHandleEvent = eventHandler , appHandleEvent = eventHandler
, appStartEvent = return () , appStartEvent = return ()
, appAttrMap = const $ attrMap (style 0) , appAttrMap = const $ attrMap (style 0)