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
---
 WorkspaceDir.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'WorkspaceDir.hs')

diff --git a/WorkspaceDir.hs b/WorkspaceDir.hs
index cd84263..dba4b35 100644
--- a/WorkspaceDir.hs
+++ b/WorkspaceDir.hs
@@ -47,7 +47,7 @@ import XMonadContrib.Dmenu ( dmenu, runProcessWithInput )
 data Chdir = Chdir String deriving ( Typeable )
 instance Message Chdir
 
-workspaceDir :: String -> Layout -> Layout
+workspaceDir :: String -> Layout a -> Layout a
 workspaceDir wd l = l { doLayout = \r x -> scd wd >> doLayout l r x
                       , modifyLayout = ml }
     where ml m | Just (Chdir wd') <- fromMessage m = return $ Just (workspaceDir wd' l)
-- 
cgit v1.2.3