bluetile-0.4.3: gnome-bluetile-session/GnomeBluetileSession.hs

----------------------------------------------------------------------------
-- |
-- Module      :  Main
-- Copyright   :  (c) Jan Vornberger 2009
-- License     :  BSD3-style (see LICENSE)
--
-- Maintainer  :  jan.vornberger@informatik.uni-oldenburg.de
-- Stability   :  unstable
-- Portability :  not portable
--
-----------------------------------------------------------------------------

module Main (main) where

import System.Posix.Env
import System.Posix.Process
import System.FilePath
import Paths_bluetile

main :: IO ()
main = do
    binDir <- getBinDir
    setEnv "WINDOW_MANAGER" (binDir </> "bluetile") True
    executeFile "gnome-session" True [] Nothing