diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-04 03:55:32 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-04 03:55:32 +0200 |
| commit | 32d280b9fc4f5703a2c9516d22cf088840e22a96 (patch) | |
| tree | 0be48fc198a0ae8d703ebeb914d6be48ee21f63c | |
| parent | 463b8b8779284f526df97be953e674f442b1c9a4 (diff) | |
| download | xmonad-32d280b9fc4f5703a2c9516d22cf088840e22a96.tar.gz xmonad-32d280b9fc4f5703a2c9516d22cf088840e22a96.tar.xz xmonad-32d280b9fc4f5703a2c9516d22cf088840e22a96.zip | |
whitespace
darcs-hash:20070604015532-9c5c1-1fda0e7e7cf686dc71785d3877a51d23f42b5919.gz
| -rw-r--r-- | XMonad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -80,7 +80,7 @@ runX c st (X a) = runStateT (runReaderT a c) st >> return () -- | Run a monad action with the current display settings withDisplay :: (Display -> X a) -> X a -withDisplay f = asks display >>= f +withDisplay f = asks display >>= f -- | Run a monadic action with the current stack set withWindowSet :: (WindowSet -> X a) -> X a @@ -96,8 +96,8 @@ getAtom str = withDisplay $ \dpy -> io $ internAtom dpy str False -- | Common non-predefined atoms atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW :: X Atom -atom_WM_PROTOCOLS = getAtom "WM_PROTOCOLS" -atom_WM_DELETE_WINDOW = getAtom "WM_DELETE_WINDOW" +atom_WM_PROTOCOLS = getAtom "WM_PROTOCOLS" +atom_WM_DELETE_WINDOW = getAtom "WM_DELETE_WINDOW" ------------------------------------------------------------------------ -- Layout handling |