From aa3bcc30d837719840064a1ed0972929c2bcde50 Mon Sep 17 00:00:00 2001 From: "tim.thelion" Date: Tue, 18 Dec 2007 07:51:46 +0100 Subject: Allow for sharing of home directory across architectures. darcs-hash:20071218065146-c18d4-533b073367884fbd9212fc547ce9e4e558a21bc9 --- Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index e169ff1..a38f697 100644 --- a/Main.hs +++ b/Main.hs @@ -18,6 +18,7 @@ import XMonad import Control.Exception (handle) import System.IO +import System.Info import System.Environment import System.Posix.Process (executeFile) @@ -43,5 +44,5 @@ buildLaunch = do recompile False dir <- getXMonadDir args <- getArgs - executeFile (dir ++ "/xmonad") False args Nothing + executeFile (dir ++ "/xmonad-"++arch++"-"++os) False args Nothing return () -- cgit v1.2.3