Commit 02b5e0ddf681699309f4f1d576312d8ac0d5953f
Parent: 29bf7861b2b9b46c0d10a230c6d5d055de93f949
Author: mcol <mcol@posteo.net>
Date: 2021-08-20 15:53:03 +0100
Committer: mcol <mcol@posteo.net>
Committed: 2021-08-20 15:53:03 +0100

replace hard-coding of my own home dir with users home dir

src/Main.hs Modified

@@ -7,7 +7,7 @@
 import Data.Text (pack)
 import Data.Void
 import GHC.Int (Int32)
-import System.Directory (getDirectoryContents)
+import System.Directory (getDirectoryContents, getHomeDirectory)
 
 import Data.GI.Base
 import qualified Data.GI.Base.GType as GType
@@ -42,7 +42,8 @@
         ]
     screen <- Gtk.windowGetScreen win
     iconTheme <- Gtk.iconThemeGetForScreen screen
-    populate listStore iconTheme "/home/mcol/Desktop"
+    homeDir <- getHomeDirectory
+    populate listStore iconTheme $ homeDir <> "/Desktop"
     #add win view
     #showAll win
     return ()