From 60196eeaa9458fa58355701ad7ebf2fb52508519 Mon Sep 17 00:00:00 2001
From: Lukas Mai <l.mai@web.de>
Date: Wed, 21 Nov 2007 19:30:18 +0100
Subject: add getXMonadDir (2nd try)

darcs-hash:20071121183018-462cf-464c521bd6fb9c7910186d20cd6023c90c7998ea
---
 Main.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 76df27d..1d89e5f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -16,11 +16,10 @@ module Main (main) where
 
 import XMonad.Main
 import XMonad.Config
-import XMonad.Core (recompile)
+import XMonad.Core (getXMonadDir, recompile)
 
 import Control.Exception (handle)
 import System.IO
-import System.Directory
 import System.Environment
 import System.Posix.Process (executeFile)
 
@@ -44,7 +43,7 @@ main = do
 buildLaunch ::  IO ()
 buildLaunch = do
     recompile False
-    dir  <- fmap (++ "/.xmonad") getHomeDirectory
+    dir  <- getXMonadDir
     args <- getArgs
     executeFile (dir ++ "/xmonad") False args Nothing
     return ()
-- 
cgit v1.2.3