From c99a0d31a758ee43527e7a66c9721247ebab3f86 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sun, 10 Jun 2007 14:37:46 +0200
Subject: haddock compatibility

darcs-hash:20070610123746-32816-e5a1b61d81fa52f608d7936f900431bd6620c3c7
---
 Operations.hs | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 55cc0d4..92f48b2 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -1,5 +1,5 @@
 {-# OPTIONS -fglasgow-exts #-}
--- ^^ deriving Typeable
+-- \^^ deriving Typeable
 -- --------------------------------------------------------------------------
 -- |
 -- Module      :  Operations.hs
@@ -10,6 +10,8 @@
 -- Stability   :  unstable
 -- Portability :  not portable, Typeable deriving, mtl, posix
 --
+-- Operations.
+--
 -----------------------------------------------------------------------------
 
 module Operations where
@@ -35,9 +37,9 @@ import Graphics.X11.Xinerama (getScreenInfo)
 import Graphics.X11.Xlib.Extras
 
 -- ---------------------------------------------------------------------
+-- |
 -- Window manager operations
-
--- | manage. Add a new window to be managed in the current workspace.
+-- manage. Add a new window to be managed in the current workspace.
 -- Bring it into focus.
 --
 -- Whether the window is already managed, or not, it is mapped, has its
@@ -54,7 +56,7 @@ manage w = withDisplay $ \d -> do
     isTransient <- isJust `liftM` io (getTransientForHint d w)
     if isTransient
         then do modify $ \s -> s { windowset = W.insertUp w (windowset s) }
-                float w -- ^^ now go the refresh.
+                float w -- \^^ now go the refresh.
         else windows $ W.insertUp w
 
 -- | unmanage. A window no longer exists, remove it from the window
@@ -447,12 +449,12 @@ withFocused f = withWindowSet $ \w -> whenJust (W.peek w) f
 isClient :: Window -> X Bool
 isClient w = withWindowSet $ return . W.member w
 
--- | Combinations of extra modifier masks we need to grab keys/buttons for.
+-- | Combinations of extra modifier masks we need to grab keys\/buttons for.
 -- (numlock and capslock)
 extraModifiers :: [KeyMask]
 extraModifiers = [0, numlockMask, lockMask, numlockMask .|. lockMask ]
 
--- | Strip numlock/capslock from a mask
+-- | Strip numlock\/capslock from a mask
 cleanMask :: KeyMask -> KeyMask
 cleanMask = (complement (numlockMask .|. lockMask) .&.)
 
-- 
cgit v1.2.3