From 604391484119408a2cc6891839bd0b13830f1997 Mon Sep 17 00:00:00 2001
From: Bogdan Sinitsyn <bogdan.sinitsyn@gmail.com>
Date: Thu, 31 Dec 2015 16:03:00 +0300
Subject: [PATCH] fix border between prompt and completions in X.Prompt

---
 XMonad/Prompt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 4e3c58f0..ed42c3bb 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -962,8 +962,8 @@ getComplWinDim compl = do
       actual_rows = min actual_max_number_of_rows (fi needed_rows)
       actual_height = actual_rows * ht
       (x,y) = case position c of
-                Top -> (0,ht)
-                Bottom -> (0, (0 + rem_height - actual_height))
+                Top -> (0,ht - bw)
+                Bottom -> (0, (0 + rem_height - actual_height + bw))
                 CenteredAt py w -> (floor $ fi (rect_width scr) * ((1 - w) / 2), ht + floor (py * fi (rect_height scr)) - bw)
   (asc,desc) <- io $ textExtentsXMF fs $ head compl
   let yp = fi $ (ht + fi (asc - desc)) `div` 2