diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-24 21:57:26 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-24 21:57:26 +0200 |
| commit | fd42f8fdae3f3afbc138270091081bdf90d38248 (patch) | |
| tree | 983476efccc41722b73f629c03bd4e9da28ac35c | |
| parent | ccc18df70a275ebba48d927849577c336174ca06 (diff) | |
| download | XMonadContrib-fd42f8fdae3f3afbc138270091081bdf90d38248.tar.gz XMonadContrib-fd42f8fdae3f3afbc138270091081bdf90d38248.tar.xz XMonadContrib-fd42f8fdae3f3afbc138270091081bdf90d38248.zip | |
fix embarrassing bugs in LayoutModifier.
darcs-hash:20070924195726-72aca-d8c9a6286c3f88b7cb5cbbb1c379da8b5b249921.gz
| -rw-r--r-- | LayoutModifier.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index 2d22371..bc82a14 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -26,11 +26,11 @@ import Operations ( LayoutMessages(Hide) ) -- Use LayoutHelpers to help write easy Layouts. class (Show (m a), Read (m a)) => LayoutModifier m a where - modifyModify :: m a -> SomeMessage -> X (Maybe (m l)) + modifyModify :: m a -> SomeMessage -> X (Maybe (m a)) modifyModify m mess | Just Hide <- fromMessage mess = do unhook m; return Nothing | otherwise = return Nothing redoLayout :: m a -> Rectangle -> Stack a -> [(a, Rectangle)] - -> X ([(a, Rectangle)], Maybe (m l)) + -> X ([(a, Rectangle)], Maybe (m a)) redoLayout m _ _ wrs = do hook m; return (wrs, Nothing) hook :: m a -> X () hook _ = return () |