From 346cc3269ee31062fa7eb560f90c4059c6279962 Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Wed, 20 Jun 2007 00:03:23 +0200
Subject: Fix type signatures.

Think this fixes the rest of the errors caused by the Layout change.

darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz
---
 Combo.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Combo.hs')

diff --git a/Combo.hs b/Combo.hs
index bdefcb3..80375c2 100644
--- a/Combo.hs
+++ b/Combo.hs
@@ -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'
-- 
cgit v1.2.3