mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-12-12 12:23:21 +03:00
16 lines
310 B
Haskell
16 lines
310 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Brick
|
||
|
|
import Brick.Widgets.Center
|
||
|
|
import Brick.Widgets.Border
|
||
|
|
import Brick.Widgets.Border.Style
|
||
|
|
|
||
|
|
ui :: Widget ()
|
||
|
|
ui =
|
||
|
|
withBorderStyle unicode $
|
||
|
|
borderWithLabel (str "Hello!") $
|
||
|
|
(center (str "Left") <+> vBorder <+> center (str "Right"))
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = simpleMain ui
|