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 /Combo.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 'Combo.hs')
-rw-r--r-- | Combo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -34,7 +34,7 @@ import Operations ( UnDoLayout(UnDoLayout) ) -- -- to your defaultLayouts. -combo :: [(Layout, Int)] -> Layout -> Layout +combo :: [(Layout a, Int)] -> Layout a -> Layout a combo origls super = Layout { doLayout = \r s -> arrange r (integrate s), modifyLayout = message } where arrange _ [] = return [] arrange r [w] = return [(w,r)] @@ -56,7 +56,7 @@ combo origls super = Layout { doLayout = \r s -> arrange r (integrate s), modify Nothing -> return Nothing Just super' -> return $ Just $ combo origls super' -broadcastPrivate :: Message a => a -> [Layout] -> X [Layout] +broadcastPrivate :: Message a => a -> [Layout b] -> X [Layout b] broadcastPrivate a ol = mapM f ol where f l = do ml' <- modifyLayout l (SomeMessage a) `catchX` return (Just l) return $ maybe l id ml' |