thRestartHook :: IO () -> XConfig l -> XConfig l
withRestartHook handler conf@XConfig { handleEventHook = orig } = conf {
    handleEventHook = handleRestartEvent handler >> orig
}


withRestartHook :: IO () -> XConfig l -> XConfig l
withRestartHook handler conf@XConfig { handleEventHook = orig } = conf {
    handleEventHook = handleRestartEvent handler >> orig
}
withRestartHook handler conf@XConfig { handleEventHook = orig } = conf {
    handleEventHook = handleRestartEvent handler >> orig
}