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)))] ]