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 --- DynamicWorkspaces.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'DynamicWorkspaces.hs') diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs index f59a567..5ce4a29 100644 --- a/DynamicWorkspaces.hs +++ b/DynamicWorkspaces.hs @@ -21,7 +21,7 @@ module XMonadContrib.DynamicWorkspaces ( import Control.Monad.State ( gets ) -import XMonad ( X, XState(..), SomeLayout, WorkspaceId ) +import XMonad ( X, XState(..), Layout, WorkspaceId ) import Operations import StackSet hiding (filter, modify, delete) import Graphics.X11.Xlib ( Window ) @@ -37,7 +37,7 @@ import Graphics.X11.Xlib ( Window ) allPossibleTags :: [WorkspaceId] allPossibleTags = map (:"") ['0'..] -addWorkspace :: SomeLayout Window -> X () +addWorkspace :: Layout Window -> X () addWorkspace l = do s <- gets windowset let newtag:_ = filter (not . (`tagMember` s)) allPossibleTags windows (addWorkspace' newtag l) -- cgit v1.2.3