XMonad: purge whenJust
XMonad: rotate through screens