packages feed

xmonad-vanessa 0.2.0.2 → 0.2.0.3

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

src/XMonad/Util/Keyboard.hs view
@@ -49,10 +49,10 @@     out <- lines <$> readCreateProcess (shell "setxkbmap -query") ""     let strip = dropWhile (==' ') . drop 1 . dropWhile (/=':') .* (!!)     let line = strip out-    if length out /= 3 then-        pure (Simple (line 1))+    if length out == 3 then+        pure (Simple (line 2))     else-        pure (Regional (line 1) (line 2))+        pure (Regional (line 2) (line 3))  -- | Tibetan keyboard layout tibetan :: KbLayout
xmonad-vanessa.cabal view
@@ -1,6 +1,6 @@ cabal-version: >=1.10 name: xmonad-vanessa-version: 0.2.0.2+version: 0.2.0.3 license: BSD3 license-file: LICENSE copyright: 2017-2018 Vanessa McHale