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 /LayoutHints.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 'LayoutHints.hs')
-rw-r--r-- | LayoutHints.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LayoutHints.hs b/LayoutHints.hs index 61aa6d8..ab23ebe 100644 --- a/LayoutHints.hs +++ b/LayoutHints.hs @@ -31,7 +31,7 @@ import XMonad hiding ( trace ) adjBorders :: Dimension -> D -> D adjBorders mult (w,h) = (w+2*mult*borderWidth, h+2*mult*borderWidth) -layoutHints :: Layout -> Layout +layoutHints :: Layout Window -> Layout Window layoutHints l = l { doLayout = \r x -> doLayout l r x >>= applyHints , modifyLayout = \x -> fmap layoutHints `fmap` modifyLayout l x } |