From cd0f005b761fdf4020b4c32e77085b510428296b Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Mon, 18 Jun 2007 16:32:34 +0200
Subject: LayoutHints.hs: add usage thingie for Haddock.

darcs-hash:20070618143234-ea16c-cdc937fbf718f558e514f0881ab0951ccbfe918e.gz
---
 LayoutHints.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'LayoutHints.hs')

diff --git a/LayoutHints.hs b/LayoutHints.hs
index 2115ff4..61aa6d8 100644
--- a/LayoutHints.hs
+++ b/LayoutHints.hs
@@ -11,10 +11,10 @@
 -- Make layouts respect size hints.
 -----------------------------------------------------------------------------
 
-module XMonadContrib.LayoutHints ( layoutHints ) where
-
--- to use:
--- defaultLayouts = [ layoutHints tiled, layoutHints $ mirror tiled , full ]
+module XMonadContrib.LayoutHints (
+    -- * usage
+    -- $ usage
+    layoutHints) where
 
 import Operations ( applySizeHints, D )
 import Graphics.X11.Xlib
@@ -22,6 +22,10 @@ import Graphics.X11.Xlib.Extras ( getWMNormalHints )
 import {-#SOURCE#-} Config (borderWidth)
 import XMonad hiding ( trace )
 
+-- $ usage
+-- > import XMonadContrib.LayoutHints
+-- > defaultLayouts = [ layoutHints tiled , layoutHints $ mirror tiled ]
+
 -- | Expand a size by the given multiple of the border width.  The
 -- multiple is most commonly 1 or -1.
 adjBorders             :: Dimension -> D -> D
-- 
cgit v1.2.3