diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-09-11 07:19:28 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-09-11 07:19:28 +0200 |
| commit | c38d5a6602b3326d9ec315c95f99ede8458281d1 (patch) | |
| tree | 408d94e77828fa7379c50edb6f175053ab57b059 | |
| parent | 1d06408cf8e4d96fee8f0bf9f1a1d859e6ef3603 (diff) | |
| download | metatile-c38d5a6602b3326d9ec315c95f99ede8458281d1.tar metatile-c38d5a6602b3326d9ec315c95f99ede8458281d1.zip | |
pointfree looks nicer here
darcs-hash:20070911051928-9c5c1-98dc6a201f22dddb80c28f5c63cbc0cc011d3f33
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index 770ea7d..9d20841 100644 --- a/Operations.hs +++ b/Operations.hs @@ -88,7 +88,7 @@ swapMaster = windows W.swapMaster -- | shift. Move a window to a new workspace, 0 indexed. shift :: WorkspaceId -> X () -shift n = windows (W.shift n) +shift = windows . W.shift -- | view. Change the current workspace to workspace at offset n (0 indexed). view :: WorkspaceId -> X () |