twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-26 09:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

forgot to remote windows specific code

Browse Source
This commit is contained in:
Michiel Derhaeg
2018-03-18 00:08:03 +01:00
parent 126f891d11
commit c3cb4ad65f
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/XMonad/Core.hs
View File

@@ -544,11 +544,11 @@ getXDGDirectory :: XDGDirectory -> FilePath -> IO FilePath
getXDGDirectory xdgDir suffix = getXDGDirectory xdgDir suffix =
normalise . (</> suffix) <$> normalise . (</> suffix) <$>
case xdgDir of case xdgDir of
XDGData -> get False "XDG_DATA_HOME" ".local/share" XDGData -> get "XDG_DATA_HOME" ".local/share"
XDGConfig -> get False "XDG_CONFIG_HOME" ".config" XDGConfig -> get "XDG_CONFIG_HOME" ".config"
XDGCache -> get True "XDG_CACHE_HOME" ".cache" XDGCache -> get "XDG_CACHE_HOME" ".cache"
where where
get _ name fallback = do get name fallback = do
env <- lookupEnv name env <- lookupEnv name
case env of case env of
Nothing -> fallback' Nothing -> fallback'