Emacs args platform-independent

Replace hardcoded forward-slash with </> from System.FilePath

2 files changed, 3 insertions, 1 deletions

diff --git a/src/Utility/Emacs.hs b/src/Utility/Emacs.hs
index f42ea0c..2b197eb 100644
--- a/src/Utility/Emacs.hs
+++ b/src/Utility/Emacs.hs
@@ -10,6 +10,7 @@ import qualified Control.SremConfig  as SremConfig
 import           Data.Maybe.Read
 import           Data.Modular
 import           System.Directory    (getHomeDirectory)
+import           System.FilePath     ((</>))
 import           System.Process      (readProcess)
 import           Text.Regex.Posix    ((=~))
 import           Types.Reminder
@@ -50,6 +51,6 @@ getEmacsOutput = do
 
 makeEmacsArgs      :: String -> [String]
 makeEmacsArgs home = [ "-batch"
-                     , "-l", home ++ "/.emacs.d/init.el"
+                     , "-l", home </> ".emacs.d" </> "init.el"
                      , "-eval", "(setq org-agenda-sticky nil)"
                      , "-eval", "(org-batch-agenda \"D\")" ]
diff --git a/srem.cabal b/srem.cabal
index ad94ce0..6a6654a 100644
--- a/srem.cabal
+++ b/srem.cabal
@@ -17,5 +17,6 @@ executable srem
                      , process
                      , regex-posix
                      , modular-arithmetic
+                     , filepath
   hs-source-dirs:      src
   default-language:    Haskell2010