From 393f376f24bda4d5dd8745d45d1ff5ef7b31aab5 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Thu, 19 Apr 2007 03:27:05 +0200 Subject: Parameterise StackSet by two index types, rather than breaking abstraction darcs-hash:20070419012705-9c5c1-3aa97e02123af08c3f4500c9e9c3bb7ab4121652 --- Operations.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index 0effd8d..48ba9db 100644 --- a/Operations.hs +++ b/Operations.hs @@ -240,7 +240,7 @@ kill = withDisplay $ \d -> do else io (killClient d w) >> return () -- | tag. Move a window to a new workspace, 0 indexed. -tag :: W.WorkspaceId -> X () +tag :: WorkspaceId -> X () tag n = do ws <- gets workspace let m = W.current ws -- :: WorkspaceId @@ -250,7 +250,7 @@ tag n = do windows $ W.shift n -- | view. Change the current workspace to workspace at offset n (0 indexed). -view :: W.WorkspaceId -> X () +view :: WorkspaceId -> X () view n = do ws <- gets workspace let m = W.current ws @@ -263,7 +263,7 @@ view n = do setTopFocus -- | 'screenWorkspace sc' returns the workspace number viewed by 'sc'. -screenWorkspace :: W.ScreenId -> X W.WorkspaceId +screenWorkspace :: ScreenId -> X WorkspaceId screenWorkspace sc = fmap (fromMaybe 0 . W.workspace sc) (gets workspace) -- | True if window is under management by us -- cgit v1.2.3