aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Main.hs2
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 ]")