diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 10:04:22 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-01 10:04:22 -0700 |
| commit | c574e47d69431e9d87de6ad8c3ff7906273a57b7 (patch) | |
| tree | 4f8e6e1e9dec404811ade6dc5ef6e3ece9976ffc | |
| parent | 2b8045c8706660995d372294b171f15d672f8651 (diff) | |
| download | sscan-c574e47d69431e9d87de6ad8c3ff7906273a57b7.tar.gz | |
tighten up rows of the UI
| -rw-r--r-- | UI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -58,9 +58,9 @@ drawUI st = [ui] ui = vBox [ hBorderWithLabel (str "[ Status ]") , vLimit 3 $ C.center $ status , hBorderWithLabel (str "[ Current settings ]") - , padAll 1 $ C.center $ settingsBox + , vLimit 8 $ C.center $ settingsBox , hBorderWithLabel (str "[ Presets ]") - , padAll 1 $ C.center $ presetsBox + , vLimit (2 + length presets) $ C.center $ presetsBox , hBorderWithLabel (str "[ Actions ]") , vLimit 6 $ C.center $ actionsBox ] |