diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-19 03:27:05 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-19 03:27:05 +0200 |
| commit | 393f376f24bda4d5dd8745d45d1ff5ef7b31aab5 (patch) | |
| tree | 252fabb66dc4f148f2cad2643453eb6f1cbb87cf /Operations.hs | |
| parent | 3685be05ec480a3829383c6ac29a518f16ac1e20 (diff) | |
| download | metatile-393f376f24bda4d5dd8745d45d1ff5ef7b31aab5.tar metatile-393f376f24bda4d5dd8745d45d1ff5ef7b31aab5.zip | |
Parameterise StackSet by two index types, rather than breaking abstraction
darcs-hash:20070419012705-9c5c1-3aa97e02123af08c3f4500c9e9c3bb7ab4121652
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |