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

Expand the selected bar

Browse Source
This commit is contained in:
Julian Ospald 2020-10-11 21:16:48 +02:00
parent 7afd262b1b
commit ea58465240
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/ghcup/BrickMain.hs
View File

@ -164,6 +164,7 @@ ui AppState { appData = AppData {..}, appSettings = as@(AppSettings {..}), ..}
then emptyWidget then emptyWidget
else foldr1 (\x y -> x <+> str "," <+> y) $ notes else foldr1 (\x y -> x <+> str "," <+> y) $ notes
) )
<+> (vLimit 1 $ fill ' ')
) )
printTag Recommended = Just $ withAttr "recommended" $ str "recommended" printTag Recommended = Just $ withAttr "recommended" $ str "recommended"