25 lines
329 B
Haskell
25 lines
329 B
Haskell
module UI where
|
|
|
|
import Brick
|
|
import Brick.Main
|
|
|
|
data Identifiers = Nil
|
|
|
|
data AppState = Null
|
|
|
|
app :: App AppState () Identifiers
|
|
app = App
|
|
{ appDraw = draw
|
|
, appChooseCursor = chooseCursor
|
|
, appHandleEvent = eventHandler
|
|
}
|
|
|
|
|
|
draw = undefined
|
|
|
|
chooseCursor = undefined
|
|
|
|
eventHandler = undefined
|
|
|
|
attributeMap = undefined
|