From 2e07689ceadaea1853c1228d14346853223be942 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 29 Sep 2007 21:12:38 +0200 Subject: some renaming of classes and data types. darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz --- WorkspaceDir.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'WorkspaceDir.hs') diff --git a/WorkspaceDir.hs b/WorkspaceDir.hs index 603572f..97e5f94 100644 --- a/WorkspaceDir.hs +++ b/WorkspaceDir.hs @@ -60,10 +60,10 @@ data WorkspaceDir a = WorkspaceDir String deriving ( Read, Show ) instance LayoutModifier WorkspaceDir a where hook (WorkspaceDir s) = scd s - modifyModify (WorkspaceDir _) m = return $ do Chdir wd <- fromMessage m - Just (WorkspaceDir wd) + handleMess (WorkspaceDir _) m = return $ do Chdir wd <- fromMessage m + Just (WorkspaceDir wd) -workspaceDir :: Layout l a => String -> l a +workspaceDir :: LayoutClass l a => String -> l a -> ModifiedLayout WorkspaceDir l a workspaceDir s = ModifiedLayout (WorkspaceDir s) -- cgit v1.2.3