shrink actions box

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 5c2a673..1a59f88 100644
--- a/Main.hs
+++ b/Main.hs
@@ -34,7 +34,7 @@ drawUI st = [ui]
               , hBorderWithLabel (str "[ Presets ]")
               , padAll 1 $ C.center $ presetsBox
               , hBorderWithLabel (str "[ Actions ]")
-              , padAll 1 $ C.center $ actionsBox
+              , vLimit 5 $ C.center $ actionsBox
               ]
     status = str "Ready to scan first page"
     settingsBox = defnList AlignRight Nothing