diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2013-12-19 21:14:40 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2013-12-19 21:14:40 +0100 |
| commit | d66e4d3388d3b2669a15f50ec8aff64a3043ff0c (patch) | |
| tree | 309951e9373d2c2c7416da139d92168539e39463 | |
| parent | d12c21f8bffea334882452084ead22a6aa6af4de (diff) | |
| download | XMonadContrib-d66e4d3388d3b2669a15f50ec8aff64a3043ff0c.tar.gz XMonadContrib-d66e4d3388d3b2669a15f50ec8aff64a3043ff0c.tar.xz XMonadContrib-d66e4d3388d3b2669a15f50ec8aff64a3043ff0c.zip | |
ServerMode properly indent
Ignore-this: 761b39c3e3c90b6123f068e8b1d34e5d
darcs-hash:20131219201440-1499c-1b093fc7a80b26cb93dd51e455038f275914a2e5.gz
| -rw-r--r-- | XMonad/Hooks/ServerMode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs index b89530e..ba460e1 100644 --- a/XMonad/Hooks/ServerMode.hs +++ b/XMonad/Hooks/ServerMode.hs @@ -168,6 +168,6 @@ serverModeEventHookF key func (ClientMessageEvent {ev_message_type = mt, ev_data cmd <- io $ getAtomName d atom case cmd of Just command -> func command - Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom)) + Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom)) return (All True) serverModeEventHookF _ _ _ = return (All True) |