jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-11-30 06:02:02 +03:00
Code Issues Projects Releases Wiki Activity

FileBrowserDemo: nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2018-11-30 11:23:11 -08:00
parent 1adaddce7f
commit 6c72d89d46
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
programs/FileBrowserDemo.hs
View File

@ -17,11 +17,12 @@ import Brick.Widgets.Center
( center
)
import Brick.Widgets.Border
( border
( borderWithLabel
)
import Brick.Widgets.Core
( hLimit
, vLimit
, txt
)
import Brick.Widgets.FileBrowser as FB
import qualified Brick.AttrMap as A
@ -37,7 +38,7 @@ drawUI b = [ui]
ui = center $
vLimit 15 $
hLimit 50 $
border $
borderWithLabel (txt "Choose a file") $
FB.renderFileBrowser True b
appEvent :: FB.FileBrowser Name -> BrickEvent Name e -> T.EventM Name (T.Next (FB.FileBrowser Name))