aboutsummaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-08 03:19:01 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-08 03:19:01 +0100
commit5f8077ae9e06085d2d31abf1f7e1f03c23341b1c (patch)
treeb42debbff0e11760313ec6d78507bb5e07eeb348 /Main.hs
parentb3a32e175ce705342b36d5081de17148a8fc6238 (diff)
downloadxmonad-5f8077ae9e06085d2d31abf1f7e1f03c23341b1c.tar.gz
xmonad-5f8077ae9e06085d2d31abf1f7e1f03c23341b1c.tar.xz
xmonad-5f8077ae9e06085d2d31abf1f7e1f03c23341b1c.zip
cleanup only
darcs-hash:20070308021901-9c5c1-35cd948050a53029805dfa1d699f7bb8c7df40de.gz
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/Main.hs b/Main.hs
index 024e869..714fe8d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -127,6 +127,10 @@ handle e = trace (eventName e) -- return ()
-- ---------------------------------------------------------------------
-- Managing windows
+-- | spawn. Launch an external application
+spawn :: String -> W ()
+spawn = io_ . runCommand
+
--
-- | refresh. Refresh the currently focused window. Resizes to full
-- screen and raises the window.
@@ -178,10 +182,6 @@ unmanage w = do
focus :: Int -> W ()
focus n = withWindows (rotate n)
--- | spawn. Launch an external application
-spawn :: String -> W ()
-spawn = io_ . runCommand
-
-- | Kill the currently focused client
kill :: W ()
kill = do