From b2d40c7d41427eed44f48f8da3972e9f0d7afecb Mon Sep 17 00:00:00 2001 From: Denis Tereshkin Date: Wed, 15 Apr 2020 17:41:23 +0700 Subject: [PATCH] tweak(ui): UI tweak --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Main.hs b/src/Main.hs index f5a0422..262cd33 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -79,7 +79,7 @@ main = do where initialState ref = AppState ref draw :: AppState -> [Widget Name] - draw s = [hBox . L.intersperse vBorder $ hLimit 15 . padLeftRight 3 <$> [vBox ([str "Ticker", hBorder] ++ (txt <$> tickers s)), + draw s = [hBox . L.intersperse vBorder $ hLimit 30 . padLeftRight 3 <$> [vBox ([str "Ticker", hBorder] ++ (txt <$> tickers s)), vBox ([str "Last", hBorder] ++ (str <$> fmap (printEntry s qteLastPrice) (tickers s))), vBox ([str "Bid", hBorder] ++ (str <$> fmap (printEntry s qteBid) (tickers s))), vBox ([str "Ask", hBorder] ++ (str <$> fmap (printEntry s qteAsk) (tickers s)))] ]