display hamming widget
This commit is contained in:
parent
ef23b67688
commit
1565c1fe99
|
@ -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 ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user