display hamming widget

This commit is contained in:
Jonathan Lamothe 2024-07-19 21:01:33 -04:00
parent ef23b67688
commit 1565c1fe99

View File

@ -30,9 +30,9 @@ import Brick.AttrMap (forceAttrMap)
import Brick.Main (App (..), halt, neverShowCursor)
import Brick.Types (BrickEvent, EventM, Widget)
import Brick.Util (style)
import Brick.Widgets.Core (emptyWidget)
import Hamming.App.Types
import Hamming.App.Widgets
mainApp :: App AppState () ResName
mainApp = App
@ -44,7 +44,7 @@ mainApp = App
}
drawFunc :: AppState -> [Widget ResName]
drawFunc = const [emptyWidget]
drawFunc s = [hammingW s]
eventHandler
:: BrickEvent ResName ()