Virtual desktop underlay for Wayland and X11
git clone https://github.com/m-col/xanadu
Files | Refs | Readme | License 
Commit 1050dbd759ff90f75bbdcd46613ae601317bb979
Parent: 8cb70257216771682f584677b8ee74e9274a156d
Author: mcol <mcol@posteo.net>
Date: 2021-08-21 19:33:01 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-08-21 19:33:01 +0100

flip appending /Desktop to $HOME

src/Icons.hs Modified 

@@ -37,8 +37,8 @@
 getRoot = do
     fromEnv <- lookupEnv "XDG_DESKTOP_DIR"
     case fromEnv of
-        Nothing -> liftM ((<>) "/Desktop") getHomeDirectory
-        Just "" -> liftM ((<>) "/Desktop") getHomeDirectory
+        Nothing -> liftM (flip (<>) "/Desktop") getHomeDirectory
+        Just "" -> liftM (flip (<>) "/Desktop") getHomeDirectory
         Just path -> return path
 
 populate :: Gtk.ListStore -> Gtk.IconTheme -> FilePath -> IO ()