16 lines
385 B
Haskell
16 lines
385 B
Haskell
module Main where
|
|
|
|
import Brick (Widget, simpleMain, (<+>), str, withBorderStyle, joinBorders)
|
|
import Brick.Widgets.Center (center)
|
|
import Brick.Widgets.Border (borderWithLabel, vBorder)
|
|
import Brick.Widgets.Border.Style (unicode)
|
|
|
|
ui :: Widget ()
|
|
ui =
|
|
newForm $
|
|
joinBorders $
|
|
withBorderStyle unicode $
|
|
borderWithLabel (str "Hello!")
|
|
|
|
main :: IO ()
|
|
main = simpleMain ui |