From dbca5b4413936ecfbd7bd15890fdc7e808a15642 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 19 Oct 2007 08:31:04 +0200
Subject: I prefer fmap over liftM

darcs-hash:20071019063104-a5988-ec68450cc37c85f447ac6655df49116c78b65e70
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Operations.hs b/Operations.hs
index fa9c5b7..6081775 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -238,7 +238,7 @@ clearEvents mask = withDisplay $ \d -> io $ do
 -- rectangle, including its border.
 tileWindow :: Window -> Rectangle -> X ()
 tileWindow w r = withDisplay $ \d -> do
-    bw <- (fromIntegral . wa_border_width) `liftM` io (getWindowAttributes d w)
+    bw <- (fromIntegral . wa_border_width) `fmap` io (getWindowAttributes d w)
     -- give all windows at least 1x1 pixels
     let least x | x <= bw*2  = 1
                 | otherwise  = x - bw*2
-- 
cgit v1.2.3