Commit 841d620a6a0ba0782deb102949d284244be5b2d2
Parent: cff6d882d3845f74686db7480c9f7ee61f2e21e2
Author: mcol <mcol@posteo.net>
Date: 2021-11-01 00:04:12 +0000
Committer: mcol <mcol@posteo.net>
Committed: 2021-11-01 00:04:12 +0000

fix getting desktop directory

src/Icons.hs Modified

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