C.Gnome combine with instead of replace Desktop startupHook

Now that C.Desktop sets startupHook do both rather than only
gnomeRegister.
This commit is contained in:
Wirt Wolff
2009-10-20 09:20:10 +00:00
parent 4abbb620a4
commit 6d4ad7f431

View File

@@ -40,7 +40,7 @@ import System.Environment (getEnvironment)
gnomeConfig = desktopConfig
{ terminal = "gnome-terminal"
, keys = \c -> gnomeKeys c `M.union` keys desktopConfig c
, startupHook = gnomeRegister }
, startupHook = gnomeRegister >> startupHook desktopConfig }
gnomeKeys (XConfig {modMask = modm}) = M.fromList $
[ ((modm, xK_p), gnomeRun)