From 73d1d97f1f3ccdd4f5852785f6c9b9015e6a65b7 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Fri, 9 Oct 2020 20:25:52 +0200
Subject: [PATCH] Reverse order of tool list in TUI

---
 app/ghcup/BrickMain.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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