diff options
| author | gwern0 <gwern0@gmail.com> | 2008-12-20 16:33:02 +0100 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2008-12-20 16:33:02 +0100 |
| commit | 9ce28b7c28444b881bd7c195b4c2ace05950685e (patch) | |
| tree | 7f25c0a5fb750b51eed109aceeafa7b58737af2c /XMonad/Util | |
| parent | 503a4f5977438a92ea2084685eaa02f2d66b9164 (diff) | |
| download | XMonadContrib-9ce28b7c28444b881bd7c195b4c2ace05950685e.tar.gz XMonadContrib-9ce28b7c28444b881bd7c195b4c2ace05950685e.tar.xz XMonadContrib-9ce28b7c28444b881bd7c195b4c2ace05950685e.zip | |
hlintify XUtils, XSelection, Search, WindowGo
Ignore-this: 7e877484e3cd8954b74232ea83180fa9
darcs-hash:20081220153302-f7719-750549ea12a24a7364f4be71894720700f98f6a7.gz
Diffstat (limited to 'XMonad/Util')
| -rw-r--r-- | XMonad/Util/XSelection.hs | 2 | ||||
| -rw-r--r-- | XMonad/Util/XUtils.hs | 2 |
2 files changed, 2 insertions, 2 deletions
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 |