From a8b9cc434474fa8e49b8dc626714864dd13c968c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 05:40:08 +0200
Subject: Add simpler layoutHints

darcs-hash:20070928034008-a5988-6867a64ced80db435e38a15c41e1c92373c7e04e.gz
---
 LayoutHints.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'LayoutHints.hs')

diff --git a/LayoutHints.hs b/LayoutHints.hs
index 2e8d87e..9b3684f 100644
--- a/LayoutHints.hs
+++ b/LayoutHints.hs
@@ -14,6 +14,7 @@
 module XMonadContrib.LayoutHints (
     -- * usage
     -- $usage
+    layoutHints,
     LayoutHints) where
 
 import Operations ( applySizeHints, D )
@@ -31,6 +32,9 @@ import XMonadContrib.LayoutModifier
 -- %layout , ModifiedLayout LayoutHints $ layoutHints tiled
 -- %layout , ModifiedLayout LayoutHints $ mirror tiled
 
+layoutHints :: (Layout l a) => l a -> ModifiedLayout LayoutHints l a
+layoutHints = ModifiedLayout LayoutHints
+
 -- | 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