diff options
Diffstat (limited to 'XMonad/Hooks/ServerMode.hs')
| -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) |