diff options
| author | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:42 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-06-23 16:35:42 +0200 |
| commit | ec614439821045141fe4bbd40329cbca17780785 (patch) | |
| tree | 835dab850bf1f738c44306e57922d9f16e701322 /LayoutHelpers.hs | |
| parent | 1acac6f30cf5f539381b81b85d96b1f69d4e56b9 (diff) | |
| download | XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.tar.gz XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.tar.xz XMonadContrib-ec614439821045141fe4bbd40329cbca17780785.zip | |
introduce idModify which is just "const (return Nothing)".
darcs-hash:20070623143542-72aca-b1bc6ffaf524ee9c1f4ac7e04d8224e02bba0b1b.gz
Diffstat (limited to 'LayoutHelpers.hs')
| -rw-r--r-- | LayoutHelpers.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/LayoutHelpers.hs b/LayoutHelpers.hs index e134deb..86cd295 100644 --- a/LayoutHelpers.hs +++ b/LayoutHelpers.hs @@ -16,7 +16,7 @@ module XMonadContrib.LayoutHelpers ( -- $usage DoLayout, ModDo, ModMod, ModLay, layoutModify, - l2lModDo, + l2lModDo, idModify, idModMod, ) where @@ -58,5 +58,8 @@ l2lModDo :: (Rectangle -> [a] -> [(a,Rectangle)]) -> DoLayout a --l2lModDo dl r s = return (dl r $ integrate s, Nothing) l2lModDo dl r s = return (dl r $ integrate s) +idModify :: ModifyLayout a +idModify _ = return Nothing + idModMod :: ModMod a idModMod _ = return Nothing |