From 31ece6f1ba1746163dd873fb183dd090e745ec8b Mon Sep 17 00:00:00 2001
From: Julia Jomantaite <julia.jomantaite@gmail.com>
Date: Tue, 1 May 2012 14:14:27 +0200
Subject: Use getXMonadDir to get the default xmonad directory.

Ignore-this: a075433761488b76a58a193aeb4e4a25

darcs-hash:20120501121427-418f8-4f45d50ad212741806d4919c8dde9067a8a74cbe.gz
---
 XMonad/Hooks/Script.hs | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/Script.hs b/XMonad/Hooks/Script.hs
index 8c6a486..82e4868 100644
--- a/XMonad/Hooks/Script.hs
+++ b/XMonad/Hooks/Script.hs
@@ -26,8 +26,6 @@ module XMonad.Hooks.Script (
 --
 import XMonad
 
-import System.Directory
-
 -- $usage
 --
 -- This module allows you to run a centrally located script with the text
@@ -47,7 +45,7 @@ import System.Directory
 
 -- | Execute a named script hook
 execScriptHook :: MonadIO m => String -> m ()
-execScriptHook hook = io $ do
-  home <- getHomeDirectory
-  let script = home ++ "/.xmonad/hooks "
+execScriptHook hook = do
+  xmonadDir <- getXMonadDir
+  let script = xmonadDir ++ "/hooks "
   spawn (script ++ hook)
-- 
cgit v1.2.3