twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Pointfree Mirror and SomeLayout instances

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-20 21:10:42 +00:00
parent d43384cfc7
commit eb1e38405d
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad.hs
View File

@@ -148,10 +148,8 @@ class (Show (layout a), Read (layout a)) => Layout layout a where
modifyLayout :: layout a -> SomeMessage -> X (Maybe (layout a))
instance Layout SomeLayout a where
doLayout (SomeLayout l) r s = do (ars, ml') <- doLayout l r s
return (ars, SomeLayout `fmap` ml' )
modifyLayout (SomeLayout l) m = do ml' <- modifyLayout l m
return (SomeLayout `fmap` ml')
doLayout (SomeLayout l) r s = fmap (fmap $ fmap SomeLayout) $ doLayout l r s
modifyLayout (SomeLayout l) = fmap (fmap SomeLayout) . modifyLayout l
runLayout :: Layout l a => l a -> Rectangle -> StackOrNot a -> X ([(a, Rectangle)], Maybe (l a))
runLayout l r = maybe (return ([], Nothing)) (doLayout l r)