ndleRestartEvent :: IO () -> Event -> X ()

-- Process ClientMessageEvent to check its type.
handleRestartEvent onrestart e@ClientMessageEvent {ev_message_type = msgT} = do
    restartAtom <- getAtom "XMONAD_RESTART"
    if (msgT == restartAtom)
       then io onrestart
       else return ()

-- Ignore everything else.
h
handleRestartEvent :: IO () -> Event -> X ()
handleRestartEvent onrestart e@ClientMessageEvent {ev_message_type = msgT} = do
    restartAtom <- getAtom "XMONAD_RESTART"
    if (msgT == restartAtom)
       then io onrestart
       else return ()

-- Ignore everything else.
handleRestartEvent onrestart e@ClientMessageEvent {ev_message_type = msgT} = do
    restartAtom <- getAtom "XMONAD_RESTART"
    if (msgT == restartAtom)
       then io onrestart
       else return ()

-- Ignore everything else.