hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reverse order of tool list in TUI

Browse Source
This commit is contained in:
Julian Ospald 2020-10-09 20:25:52 +02:00
parent f7ed1a4bde
commit 73d1d97f1f
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/ghcup/BrickMain.hs
View File

@ -45,6 +45,7 @@ import URI.ByteString
import qualified Data.Text as T import qualified Data.Text as T
import qualified Graphics.Vty as Vty import qualified Graphics.Vty as Vty
import qualified Data.Vector as V import qualified Data.Vector as V
import qualified Brick.Widgets.List as L
data AppState = AppState { data AppState = AppState {
@ -71,7 +72,7 @@ ui AppState {..} =
( padBottom Max ( padBottom Max
$ ( withBorderStyle unicode $ ( withBorderStyle unicode
$ borderWithLabel (str "GHCup") $ borderWithLabel (str "GHCup")
$ (center $ (header <=> hBorder <=> renderList renderItem True lr)) $ (center $ (header <=> hBorder <=> renderList renderItem True (L.listReverse lr)))
) )
) )
<=> footer <=> footer