From 4433b1119ca12a43c7c023f734d368f400a3ec4c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 3 Oct 2007 18:16:43 +0200
Subject: Pointfree

darcs-hash:20071003161643-a5988-ae0d1955200eb63560a8ed8b0cf45fa11bde2241
---
 Config.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Config.hs b/Config.hs
index 4b4490b..ba4b70c 100644
--- a/Config.hs
+++ b/Config.hs
@@ -67,7 +67,7 @@ defaultGaps = [(0,0,0,0)] -- 15 for default dzen
 manageHook :: Window -> (String, String, String) -> X (WindowSet -> WindowSet)
 
 -- Float various windows:
-manageHook w (_, _, c) | c `elem` floats =  do (_, rr) <- floatLocation w; return (W.float w rr)
+manageHook w (_, _, c) | c `elem` floats = fmap (W.float w . snd) (floatLocation w)
  where floats = ["MPlayer", "Gimp"]
 
 -- Don't manage various panels and desktop windows:
-- 
cgit v1.2.3