diff options
| author | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-20 00:03:23 +0200 |
|---|---|---|
| committer | joachim.fasting <joachim.fasting@gmail.com> | 2007-06-20 00:03:23 +0200 |
| commit | 346cc3269ee31062fa7eb560f90c4059c6279962 (patch) | |
| tree | d3fce63e93e074dbec7eaa5b261b0d65f8d0219e /NoBorders.hs | |
| parent | b5826d369dabc893c9fa7bf1a97915c4c7f4967e (diff) | |
| download | XMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.tar.gz XMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.tar.xz XMonadContrib-346cc3269ee31062fa7eb560f90c4059c6279962.zip | |
Fix type signatures.
Think this fixes the rest of the errors caused by the Layout change.
darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz
Diffstat (limited to 'NoBorders.hs')
| -rw-r--r-- | NoBorders.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/NoBorders.hs b/NoBorders.hs index e0862f8..5588b8b 100644 --- a/NoBorders.hs +++ b/NoBorders.hs @@ -37,10 +37,10 @@ import {-# SOURCE #-} Config (borderWidth) -- -- > layouts = [ noBorders full, tall, ... ] -noBorders :: Layout -> Layout +noBorders :: Layout a -> Layout a noBorders = withBorder 0 -withBorder :: Dimension -> Layout -> Layout +withBorder :: Dimension -> Layout a -> Layout a withBorder bd l = l { doLayout = \r x -> setborders bd >> doLayout l r x , modifyLayout = ml } where ml m | Just UnDoLayout == fromMessage m |