diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2015-04-14 20:48:21 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2015-04-14 20:48:21 +0200 |
commit | 0a23046a06d223caea4a02615201e05e88e0a255 (patch) | |
tree | 29ea14e187a0b8375244e664e6f0d5cf042519c8 /src/XMonad/Config.hs | |
parent | a19946c22fc87796adb6c6c2ef4d23c5a1983c17 (diff) | |
download | xmonad-0a23046a06d223caea4a02615201e05e88e0a255.tar.gz xmonad-0a23046a06d223caea4a02615201e05e88e0a255.tar.xz xmonad-0a23046a06d223caea4a02615201e05e88e0a255.zip |
Make ~/.xmonad/xmonad-$arch-$os handle args like /usr/bin/xmonad
Ignore-this: add70a198fffaa94b14a35b585487eb3
darcs-hash:20150414184821-1499c-eebbc66c18dfc34d760357379ae5fbf224c6b7d1.gz
Diffstat (limited to 'src/XMonad/Config.hs')
-rw-r--r-- | src/XMonad/Config.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/XMonad/Config.hs b/src/XMonad/Config.hs index a39e1a1..4f90b8a 100644 --- a/src/XMonad/Config.hs +++ b/src/XMonad/Config.hs @@ -271,6 +271,9 @@ instance (a ~ Choose Tall (Choose (Mirror Tall) Full)) => Default (XConfig a) wh , XMonad.clickJustFocuses = clickJustFocuses , XMonad.clientMask = clientMask , XMonad.rootMask = rootMask + , XMonad.handleExtraArgs = \ xs theConf -> case xs of + [] -> return theConf + _ -> fail ("unrecognized flags:" ++ show xs) } -- | The default set of configuration values itself |