From 8238c35c211b4bc6258958918653d267787f8b47 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 30 Apr 2007 18:35:15 +0200
Subject: Make border width configurable

darcs-hash:20070430163515-a5988-9dea5188c30830fd8b3135f7cb5beffd7b90dcb9
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index ed25b31..886d8ac 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -161,7 +161,7 @@ manage w = do
     withDisplay $ \d -> io $ do
         selectInput d w $ structureNotifyMask .|. enterWindowMask .|. propertyChangeMask
         mapWindow d w
-        setWindowBorderWidth d w 1
+        setWindowBorderWidth d w borderWidth
     windows $ W.push w
 
 -- | unmanage. A window no longer exists, remove it from the window
-- 
cgit v1.2.3