shrink status box

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 489fb7b..2acb0ff 100644
--- a/Main.hs
+++ b/Main.hs
@@ -27,7 +27,7 @@ drawUI :: St -> [Widget ()]
 drawUI st = [ui]
   where
     ui = vBox [ hBorderWithLabel (str "[ Status ]")
-              , C.center $ status
+              , vLimit 3 $ C.center $ status
               , hBorderWithLabel (str "[ Current settings ]")
               , padAll 1 $ C.center $ settingsBox
               , hBorderWithLabel (str "[ Presets ]")