diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-20 23:10:42 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-20 23:10:42 +0200 |
commit | 56d7d0a693340c6710adbc8623b20a7728e498a1 (patch) | |
tree | 28a61ba6e0b89da3e7d32d937dcee4cf9f2bfe6a /Operations.hs | |
parent | 9733e389680ef92a90894ddfe85f833f9a4fead6 (diff) | |
download | xmonad-56d7d0a693340c6710adbc8623b20a7728e498a1.tar.gz xmonad-56d7d0a693340c6710adbc8623b20a7728e498a1.tar.xz xmonad-56d7d0a693340c6710adbc8623b20a7728e498a1.zip |
Pointfree Mirror and SomeLayout instances
darcs-hash:20070920211042-a5988-0fcfdaa8b1ecfffe0f1ec5e5584d53d7e31416d7.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index d18bd99..cedc93a 100644 --- a/Operations.hs +++ b/Operations.hs @@ -378,8 +378,8 @@ mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw) data Mirror l a = Mirror (l a) deriving (Show, Read) instance Layout l a => Layout (Mirror l) a where - doLayout (Mirror l) r s = do (wrs, ml') <- doLayout l (mirrorRect r) s - return (map (second mirrorRect) wrs, Mirror `fmap` ml') + doLayout (Mirror l) r s = (map (second mirrorRect) *** fmap Mirror) + `fmap` doLayout l (mirrorRect r) s modifyLayout (Mirror l) = fmap (fmap Mirror) . modifyLayout l -- | tile. Compute the positions for windows using the default 2 pane tiling algorithm. |