Simplify upgrade copying logic

2020-07-07 13:39:58 -04:00
parent da94fa5f92
commit 2be1aa2707
2 changed files with 11 additions and 18 deletions
--- a/app/ghcup/BrickMain.hs
+++ b/app/ghcup/BrickMain.hs
@@ -71,9 +71,11 @@ ui AppState {..} =
      )
    )
    <=> ( withAttr "help"
-        $ foldr1 (\x y -> x <+> str "  " <+> y)
-        . (++ [str "↑↓:Navigation"])
-        $ (fmap (\(c, s, _) -> str (c : ':' : s)) keyHandlers)
+        . txtWrap
+        . T.pack
+        . foldr1 (\x y -> x <> "  " <> y)
+        . (++ ["↑↓:Navigation"])
+        $ (fmap (\(c, s, _) -> (c : ':' : s)) keyHandlers)
        )

 where