[xmonad] [patch] Added doShift function in ManageHook