diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-15 22:31:21 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-15 22:31:21 +0200 |
| commit | 4589fe7915a52ab216897782aea378b07076b61f (patch) | |
| tree | de681a9108eb344b028cf3dd816b58842c537807 | |
| parent | 912c33e92c5981a5275572030986790d13a2acf5 (diff) | |
| download | dotfiles-4589fe7915a52ab216897782aea378b07076b61f.tar dotfiles-4589fe7915a52ab216897782aea378b07076b61f.tar.gz dotfiles-4589fe7915a52ab216897782aea378b07076b61f.tar.bz2 dotfiles-4589fe7915a52ab216897782aea378b07076b61f.tar.xz dotfiles-4589fe7915a52ab216897782aea378b07076b61f.zip | |
Proper type for hScreenPerm
| -rw-r--r-- | .xmonad/xmonad.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 569d428..287247d 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -86,9 +86,11 @@ hostFromName h@("vali") = defaultHost { hName = h | |||
| 86 | ] | 86 | ] |
| 87 | hWsp = wspFromMap workspaceNames | 87 | hWsp = wspFromMap workspaceNames |
| 88 | hCoWsp = coWspFromMap workspaceNames | 88 | hCoWsp = coWspFromMap workspaceNames |
| 89 | hScreenPerm 1 = 2 | 89 | hScreenPerm = map hPrim |
| 90 | hScreenPerm 2 = 1 | 90 | where |
| 91 | hScreenPerm x = x | 91 | hPrim 1 = 2 |
| 92 | hPrim 2 = 1 | ||
| 93 | hPrim x = x | ||
| 92 | hostFromName _ = defaultHost | 94 | hostFromName _ = defaultHost |
| 93 | 95 | ||
| 94 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of | 96 | wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of |