From 8376e535f6e8b47da2154ac7928d9a1f32ab7d59 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 25 Feb 2017 21:34:14 -0700
Subject: shrink actions box

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3