From 477ac70445bcebc96d76a73dd1bee50e990f9391 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 18 Jun 2009 02:37:29 +0200
Subject: Correct many typos in the documentation, consistent US spellingg

Ignore-this: cf6dcf340fa6cc010f7879f188d376f5

darcs-hash:20090618003729-1499c-c927c08cda268b94b350f6419a64df8ca1e863d4.gz
---
 XMonad/Hooks/Place.hs  | 16 ++++++++--------
 XMonad/Hooks/Script.hs |  2 +-
 2 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/Place.hs b/XMonad/Hooks/Place.hs
index c0b92ee..9211f93 100644
--- a/XMonad/Hooks/Place.hs
+++ b/XMonad/Hooks/Place.hs
@@ -407,29 +407,29 @@ position rs x y w h = minimumBy distanceOrder $ map closest rs
 -- | First part of the algorithm:
 -- Tries to find an area in which to place a new 
 -- rectangle so that it overlaps as little as possible with
--- other rectangles aready present. The first rectangles in
+-- other rectangles already present. The first rectangles in
 -- the list will be overlapped first.
 findSpace :: Real a =>
              SmartRectangle a -- ^ The total available area
-          -> [SmartRectangle a] -- ^ The parts aready in use
+          -> [SmartRectangle a] -- ^ The parts already in use
           -> a -- ^ Width of the rectangle to place
           -> a -- ^ Height of the rectangle to place
           -> [SmartRectangle a]
 findSpace total [] _ _ = [total]
 findSpace total rs@(_:rs') w h
-  = case filter largeEnough $ cleanup $ substractRects total rs of
+  = case filter largeEnough $ cleanup $ subtractRects total rs of
       [] -> findSpace total rs' w h
       as -> as
     where largeEnough r = width r >= w && height r >= h
 
 
--- | Substracts smaller rectangles from a total rectangle
+-- | Subtracts smaller rectangles from a total rectangle
 -- , returning a list of remaining rectangular areas.
-substractRects :: Real a => SmartRectangle a 
+subtractRects :: Real a => SmartRectangle a 
                -> [SmartRectangle a] -> [SmartRectangle a]
-substractRects total [] = [total]
-substractRects total (r:rs) 
-  = do total' <- substractRects total rs
+subtractRects total [] = [total]
+subtractRects total (r:rs) 
+  = do total' <- subtractRects total rs
        filter (not . isEmpty)
                 [ total' {sr_y1 = min (sr_y1 total') (sr_y0 r)} -- Above
                 , total' {sr_x0 = max (sr_x0 total') (sr_x1 r)} -- Right
diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs
index 1df2637..ef6bc10 100644
--- a/XMonad/Hooks/Script.hs
+++ b/XMonad/Hooks/Script.hs
@@ -43,7 +43,7 @@ import System.Directory
 -- >   ...
 -- >   }
 --
--- Now, everytime the startup hook runs, the command
+-- Now, every time the startup hook runs, the command
 -- @~\/.xmonad\/hooks startup@ will also.
 
 -- | Execute a named script hook
-- 
cgit v1.2.3