1 files changed, 2 insertions, 3 deletions
diff --git a/Main.hs b/Main.hs
index 0d0a442..bf1402f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -42,12 +42,11 @@ main :: IO ()
 main = do
     dpy   <- openDisplay ""
     let dflt = defaultScreen dpy
-        initcolor c = fst `liftM` allocNamedColor dpy (defaultColormap dpy dflt) c
 
     rootw  <- rootWindow dpy dflt
     xinesc <- getScreenInfo dpy
-    nbc    <- initcolor normalBorderColor
-    fbc    <- initcolor focusedBorderColor
+    nbc    <- initColor dpy normalBorderColor
+    fbc    <- initColor dpy focusedBorderColor
     hSetBuffering stdout NoBuffering
     args <- getArgs