formatting and comments only

Main.hs

@@ -141,13 +141,12 @@ withWindows f = do
     modifyWindows f
     refresh
 
--- | manage. Add a new window to be managed
+-- | manage. Add a new window to be managed. Bring it into focus.
 manage :: Window -> W ()
 manage w = do
-    trace "manage"
     d  <- gets display
-    withWindows (nub . (w :))
     io $ mapWindow d w
+    withWindows (nub . (w :))
 
 -- | unmanage, a window no longer exists, remove it from the stack
 unmanage :: Window -> W ()