From 9ce28b7c28444b881bd7c195b4c2ace05950685e Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Sat, 20 Dec 2008 16:33:02 +0100
Subject: hlintify XUtils, XSelection, Search, WindowGo

Ignore-this: 7e877484e3cd8954b74232ea83180fa9

darcs-hash:20081220153302-f7719-750549ea12a24a7364f4be71894720700f98f6a7.gz
---
 XMonad/Util/XSelection.hs | 2 +-
 XMonad/Util/XUtils.hs     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index fdea2cf..aa6624e 100644
--- a/XMonad/Util/XSelection.hs
+++ b/XMonad/Util/XSelection.hs
@@ -170,5 +170,5 @@ shell using 'safeSpawn' from "XMonad.Util.Run"; see its documentation for more
 details on the advantages and disadvantages of using safeSpawn. -}
 promptSelection, safePromptSelection, unsafePromptSelection :: String -> X ()
 promptSelection = unsafePromptSelection
-safePromptSelection app = join $ io $ liftM (safeSpawn app) (getSelection)
+safePromptSelection app = join $ io $ liftM (safeSpawn app) getSelection
 unsafePromptSelection app = join $ io $ liftM unsafeSpawn $ fmap (\x -> app ++ " " ++ x) getSelection
diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs
index c72bd79..b37d438 100644
--- a/XMonad/Util/XUtils.hs
+++ b/XMonad/Util/XUtils.hs
@@ -137,7 +137,7 @@ paintWindow' win (Rectangle x y wh ht) bw color b_color str = do
   io $ fillRectangle d p gc 0 0 wh ht
   -- and now again
   io $ setForeground d gc color'
-  io $ fillRectangle d p gc (fi bw) (fi bw) ((wh - (bw * 2))) (ht - (bw * 2))
+  io $ fillRectangle d p gc (fi bw) (fi bw) (wh - (bw * 2)) (ht - (bw * 2))
   when (isJust str) $ do
     let (xmf,fc,bc,s) = fromJust str
     printStringXMF d p xmf gc fc bc x y s
-- 
cgit v1.2.3