From 7fa6bf7d4e22c3d54b03c66237b6dfeae5db7150 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 24 Nov 2007 15:32:21 +0100
Subject: Typos and formatting

darcs-hash:20071124143221-32816-2dacd78268c87501963b1bfd20652052fbe2c4e3
---
 XMonad/Core.hs       | 4 ++--
 XMonad/ManageHook.hs | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 4e60c79..0e35e4b 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -213,7 +213,7 @@ class Show (layout a) => LayoutClass layout a where
     doLayout l r s   = return (pureLayout l r s, Nothing)
 
     -- | This is a pure version of doLayout, for cases where we don't need
-    -- access to the X monad to determine how to layou out the windows, and
+    -- access to the X monad to determine how to layout the windows, and
     -- we don't need to modify our layout itself.
     pureLayout  :: layout a -> Rectangle -> Stack a -> [(a, Rectangle)]
     pureLayout _ r s = [(focus s, r)]
@@ -221,7 +221,7 @@ class Show (layout a) => LayoutClass layout a where
     -- | 'handleMessage' performs message handling for that layout.  If
     -- 'handleMessage' returns Nothing, then the layout did not respond to
     -- that message and the screen is not refreshed.  Otherwise, 'handleMessage'
-    -- returns an updated 'LayoutClass' and the screen is refreshed.
+    -- returns an updated 'Layout' and the screen is refreshed.
     --
     handleMessage :: layout a -> SomeMessage -> X (Maybe (layout a))
     handleMessage l  = return . pureMessage l
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index 8fb61ee..a0d47c8 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -61,9 +61,9 @@ infixr 3 <&&>, <||>
 
 -- | Queries that return the window title, resource, or class.
 title, resource, className :: Query String
-title     = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w)
-resource  = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName $ io $ getClassHint d w)
-className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io $ getClassHint d w)
+title     = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName    d w)
+resource  = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resName        $ io $ getClassHint d w)
+className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass       $ io $ getClassHint d w)
 
 -- | Modify the 'WindowSet' with a pure function.
 doF :: (WindowSet -> WindowSet) -> ManageHook
-- 
cgit v1.2.3